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PREFAZIONE 


Questo libro è dedicato a coloro che si entusiasmano per i gio¬ 
chi e che amano digitarli da sé. In questo modo è resa possibile 
la costituzione di una buona raccolta di programmi con una spesa 
minima. 

La battitura dei listati sulla tastiera, inoltre, rappresenta il modo 
migliore per apprendere la sintassi del linguaggio BASIC e render¬ 
si conto allo stesso tempo di come i vari risultati possono essere 
ottenuti. Quando poi avrete raggiunto una certa bravura nella pro¬ 
grammazione, potrete rimaneggiare i programmi secondo le vostre 
preferenze. 

Speriamo che alla fine avrete abbastanza suggerimenti ed espe¬ 
rienze da ideare programmi interamente vostri. 

Sebbene questo libro risulti utile all’apprendimento, non è stato 
disegnato come un vero e proprio corso didattico; se avessi dovuto 
spiegare il funzionamento di ogni elemento dei programmi, avrem¬ 
mo forse solo la metà di tutti i listati che si trovano nel libro! Lo 
scopo mio e di tutto l’allegro gruppo dei nostri programmatori è 
stato quello di rendere ciascun programma adatto alla battitura sulla 
tastiera; sforzandoci di rendere soddisfacenti i nostri giochi finiti, 
abbiamo inserito alcune routine in codice macchina. Il codice vie¬ 
ne caricato in memoria dai data, e nessun’altra conoscenza è ri¬ 
chiesta. 

Bisogna tuttavia rendersi conto che il BASIC CBM, anche se aiu¬ 
tato dal codice macchina, non è in grado di eguagliare un program¬ 
ma scritto interamente nel linguaggio macchina. Il compromesso 
assunto in questo libro è consistito nel far sì che i programmi non 
fossero, per quanto possibile, interamente elaborati in linguaggio 
macchina. In ultima analisi quel che conta è la fruibilità e la pia¬ 
cevolezza dei giochi e speriamo che anche voi riconosciate ai no¬ 
stri giochi queste qualità. 

Questo libro è il risultato di lunghe ed impegnative ore di lavoro 
da parte di un gruppo di esperti. Vorrei esprimere tutta la mia ri- 
conoscenza ai seguenti programmatori di Mr. Micro: Issi, Greg, 
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Bootsy, David e Evan i quali tutti hanno collaborato attivamente 
al progetto. Sono anche grato ai nostri amici della Commodore per 
il prestito delle apparecchiature e per la valida assistenza tecnica. 

L’altra persona importante che ha preso parte alla realizzazione 
di questo libro è stata mia moglie Val, che dalle mie note scritte 
a mano ha fornito il prodotto finale elaborato col word processor. 

Infine vorrei ringraziare Richard Miles che ha commissionato il 
libro e risolto i problemi di pubblicazione, permettendogli di arri¬ 
vare a te, proprietario d’un C 16, per il quale l’intera impresa è sta¬ 
ta compiuta. 


Jim Gregory 
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Introduzione 


Tutti i giochi che trovate nel libro sono stati scritti apposita¬ 
mente per il Commodore 16 e dovrebbero funzionare anche con 
il PLUS 4. Il risultato finale presenta una serie di programmi rap¬ 
presentativi di tutti i tipi di giochi, contenenti molte tecniche utili. 

Abbiamo stampato ciascun listato su un’ampiezza di 42 colonne. 

Ogni listato è stato provato e riprovato per verificarne il funzio¬ 
namento e poi riprodotto a partire direttamente dallo stampato del 
computer. Ciò vuol dire che la ragione più probabile del mancato 
funzionamento di un programma dovrebbe dipendere da errori di 
battitura del lettore! 

Io stesso ho copiato molti programmi da libri e riviste e so per 
mia esperienza diretta che in certi casi vi sarà difficile ammettere 
di aver sbagliato. Pertanto vi esorto a leggere le note che seguono 
sul modo di programmare con cura e di evitare così gli errori più 
frequenti di battitura. Se seguirete i nostri consigli, troverete assai 
più piacevole e assai meno frustrante il vostro hobby dei micro¬ 
computer. 

Alcune delle note seguenti potranno sembrarvi ovvie o banali, 
ciò nondimeno vi risparmieranno tempo ed affanni. Se vi sentite 
pronti e rilassati, farete sicuramente pochi errori. 


Prima programmate voi stessi! 

1. Disponete su di un tavolo il vostro apparecchio, assicuratevi 
di sedere comodamente e con la schiena dritta, se possibile. Fate 
in modo da avere abbastanza luce e rialzate il libro per leggerlo 
più facilmente. 

2. Prima di iniziare la battitura verificate tutte le connessioni elet¬ 
triche! 

3. Verificate se avete abbastanza cassette per registrare. 

4. Preparate le cassette in modo che appaia il nastro magnetico 
marrone dopo la banderella trasparente che fa da guida. 



5. Sarà meglio disporre di una cassetta abbastanza lunga, cioè 
una C 90, con la quale lavorare. Poi per testare salvataggio e cari¬ 
camento su nastro digitate un programma del tipo: 

10 REM - TEST - 
20 PR1NT“TEST O.K.” 

30 GOTO 10 


Quindi salvate il programma-test, riavvolgete il nastro, caricate 
il programma-test e fatelo funzionare (RUN). Se appare l’O.K., non 
riavvolgete il nastro, ma lasciatelo al punto in cui si trova. Se inve¬ 
ce qualcosa non funziona, verificate ogni passaggio e riprovate di 
nuovo. Questo nastro è pronto dunque per immagazzinare il vo¬ 
stro programma, sia completo sia solo in spezzoni da completare 
in seguito. 

6. Quando salvate solo una parte di programma, attribuitegli un 
titolo che in seguito vi aiuterà a riconoscerlo, ad esempio “P 1”, 
“P 2”, ecc. Oppure magari la data in cui effettuate l’operazione, 
ad esempio 8.15-14/10/85. 

Vi sarà anche utile annotare l’operazione sulla cassetta e segna¬ 
re il numero del contagiri al quale corrisponde la parte di program¬ 
ma, per poterla poi ritrovare velocemente. 

7. Salvate sempre il programma su nastro prima di farlo funzio¬ 
nare. Il micromondo pullula di gente accanita che perde ore di la¬ 
voro per aver digitato RUN prima di salvare il programma. E se 
avrete salvato gli spezzoni precedenti, avrete perso solo l’ultima por¬ 
zione. 

Le cause della perdita di un programma in questo modo sono 
varie. Eccovi alcuni esempi: sbagli nella battitura di parole che in¬ 
ducono l’interprete a svolgere una nuova istruzione o lo fanno pre¬ 
cipitare in un ciclo senza uscita, che non sia lo spegnimento del 
computer. Programmi che includono istruzioni il linguagggio mac¬ 
china o istruzioni POKE o System più facilmente possono fallire, 
a causa dei valori sbagliati via via incontrati. 

8. Quando un programma è pronto e funzionante, si raccoman¬ 
da di farne una copia su una C 90 che contenga anche altri pro¬ 
grammi; ma la copia principale dovrebbe essere accolta da una cas¬ 
setta di lunghezza adeguata, come ad esempio una C 15. Si do¬ 
vrebbe inoltre registrare un solo programma per lato, per consenti¬ 
re un caricamento veloce e agevole. Ricordatevi di scrivere il titolo 
sull’ettichetta. 

Questo sistema a due cassette dovrebbe evitarvi di dover digitare 
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di nuovo tutto il listato di un programma eventualmente perso a 
causa di un nastro danneggiato o smarrito. 

9. Molti utenti sono diventati estremamente cauti nella conser¬ 
vazione delle cassette e si meravigliano quando ne scoprono una 
danneggiata. Eccovi alcune regole da seguire per tenere al sicuro 
i vostri nastri: 

• Identificate con chiarezza tutti i nastri e le custodie. 

• Tenete i nastri nelle custodie e queste ordinate in raccoglitori. 

• Conservate i nastri al riparo da fonti di calore. 

• Tenete i nastri lontani da campi magnetici, come ad esempio TV, 
computer, altoparlanti, motori, ventilatori e assolutamente dai 
telefoni, i quali possono danneggiare o cancellare il vostro pro¬ 
gramma. 

• Non lasciate i nastri inseriti quando non sia necessario, né tan¬ 
to meno premuto il tasto play se il programma non lo richiede. 

• Ricordatevi di asportare le listelle che si trovano sul retro delle 
cassette per impedire la cancellazione accidentale dei program¬ 
mi. Se mai desiderate registrare temporaneamente su di una cas¬ 
setta protetta, basta apporre in luogo delle suddette listelle una 
striscia di nastro adesivo. 

10. Non lavorate per più di tre ore di fila. Fate una pausa, pas¬ 
seggiate, o fate una doccia, dedicatevi ad un gioco! 


Altri problemi 


PARIGI A 
A PRIMAVERA 

Leggete la frase che precede queste righe! Vi sorprenderà sapere 
che la maggior parte della gente legge Parigi a primavera. Forse 
anche voi! Comunque la frase suona in realtà Parigi a a primave¬ 
ra. La preposizione a è stata stampata due volte, ma poiché ciò ci 
risulta inaspettato e per di più la frase è familiare, la seconda a non 
viene recepita correttamente dalla mente. 

Un problema simile s’incontra nella battitura dei listati di pro¬ 
grammi. Ecco perché spesso in luogo dello zero (stampato come 
0) spesso si trova la lettera O, oppure la S viene erroneamente so¬ 
stituita al simbolo del dollaro (stampato come $). 

Una momentanea caduta dell’attenzione può portare a confon- 
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dere righe diverse, quando gli occhi saltano da una riga a quella 
successiva. Ad esempio: 

10 PRINT“Questo è l’inizio” 

20 PRINT“Questa è la fine” 

diventa: 

10 PRINT“Questo è la fine” 

Verificate sullo schermo di aver correttamente battuto le lettere 
sciftate, per evitare errori classici, come ad esempio: 

10 PRINT 2 DOVE SONO LE VIRGOLETTE12 

In nessun caso dovrete alterare un programma al momento di 
digitarlo. Se la successione dei numeri è: 10, 20, 30, ecc., conserva¬ 
tela esattamente. Cambiamenti si possono meglio tentare se abbia¬ 
mo visto che il programma funziona. Il valore di questa regola è 
generale - non sopprimete delle righe perché pensate che siano fa¬ 
coltative. Altrimente potrebbe verificarsi un crollo del programma 
in corrispondenza di un numero di linea da voi soppresso o cam¬ 
biato. 

Le istruzioni REM sono state usate per aiutarvi a capire il fun¬ 
zionamento del programma. Dovreste digitarle esattamente come 
sono stampate. Solo quando avrete già fatto funzionare e salvato 
un programma, potreste provare ad ottenere una copia senza istru¬ 
zioni REM. Ciò vi consentirà semplicemente di risparmiare un po’ 
di memoria, ma non ci sono dei benefici reali nel farlo. 

Gli spazi hanno sempre un’importanza vitale in un programma 
per computer. Particolare attenzione dovrebbe essere dedicata lo¬ 
ro, per contarli e batterli con accuratezza. 

Siate particolarmente attenti a introdurre ogni riga per intero a 
partire dal numero di riga. Potrebbe sorgere confusione quando 
la riga contiene dei numeri che sconfinano nella riga sottostante. 
Allora non dovrete digitare queste due righe separatamente, per¬ 
ché così facendo sarebbero lette dal computer come numeri di ri¬ 
ga, con i problemi che ne derivano. 

Vi consigliamo di aiutarvi con un righello per segnare la riga che 
state leggendo. Eviterete in questo modo molti errori. 
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Nota importante 


Il linguaggio BASIC per il Commodore ha procurato a lungo 
problemi a quanti pubblicano listati di programmi. Ciò per il fatto 
che esso mette a disposizione dei simboli speciali per indicare cer¬ 
te operazioni, ad esempio il Clear home corrisponde ad un carat¬ 
tere rappresentato da un cuoricino in campo inverso. 

Se adoperassimo una stampante CBM, allora questi simboli ver¬ 
rebbero riprodotti, ma l’esperienza ci dice che molte persone han¬ 
no difficoltà a ricordarne il significato. 

Pertanto i programmi di questo libro sono stati stampati adope¬ 
rando una speciale interfaccia, la quale stampa automaticamente 
i caratteri speciali in forma dì abbreviazioni facilmente comprensi¬ 
bili. Tutte queste abbreviazioni sono contenute fra parentesi spe¬ 
ciali, le quali indicano che i tasti mostrati devono essere premuti. 

Queste parentesi particolari NON DEVONO ESSERE BATTU¬ 
TE, e nemmeno le lettere che esse contengono. Ad esempio, se ve¬ 
dete un CLR tra parentesi graffe, allora dovrete premere il tasto 
corrispondente. Sullo schermo comparirà il simbolo del cuorici¬ 
no, quando premete la giusta sequenza di tasti. 

L’interfaccia inoltre stampa i caratteri grafici speciali in una for¬ 
ma più leggibile. Di nuovo, le parentesi speciali verranno stampate 
o con la forma di una freccetta verso l’alto per indicare il tasto shift 
o con una stelletta per il tasto CBM seguita da una lettere. Per esem¬ 
pio, se la freccetta è stampata insieme al carattere di uguale, allora 
bisognerà tener premuto il tasto shift mentre si batte il tasto di ugua¬ 
le. Ciò risulterà in una freccetta rivolta a sinistra. Se invece col ta¬ 
sto di uguale fosse stato stampato un asterisco o stelletta, allora 
dovrebbe essere tenuto premuto il tasto logo CBM mentre si batte 
il tasto di uguale. Ciò produrrà un simbolo di PI greca. 

Gli spazi compresi tra un set di parentesi graffe e un altro set 
dovrebbero essere contati attentamente, facendo riferimento ai ca¬ 
ratteri che si trovano al di sopra e al di sottto della riga in questione. 

Vi forniamo alcuni esempi di come queste parentesi sono state 
impiegate: 


5 



PRINTER CODES 


C O L O U R S 

<BLK>= BLACK=(CTRL♦1) 

{WHT >= WHITE=(CTRL+2) 

{BLK J= RED=(CTRL+3) 
(CYN>= CYAN=(CTRL+4) 

{PUR >=PURPLE=< CTRL + 5 > 

{ GRN >= GREEN=(CTRL+6) 

{BLU J = BLUE=(CTRL + 7) 

{YEL)=YELLOW=(CTRL+8) 
£OR}=ORANGE=(CBM+l) 

{BRN >=BROWN =<CBM+2> 

{RVS ON>=RVS ON=(CTRL+9) 

{RVS OFF >=RVS OFF=(CTRL+0) 

CONTROL CODES 


{CUR L >=CRSR LEFT 
< CUR RT)=CURSOR RIGHT 
(CUR UP>=CURSOR UP 
{CUR DN>=CURSOR DOWN 
{HOME > =HOME CURSOR 
C CLR >=CLEAR SCREEN 
0=FLASH ON =C TRL +COMMA 
~=FLASH OFF=CTRL+FULL STOP 

CHARACTER CODES 


<*X>=CBM KEY + KEY INDICATED 
{'■X>=SHIFT KEY + KEY SHOWN 

EXAMPLES 


{ -->=SHIFT+MINUS KEY 

{**>=CBM KEY+ASTERISK(MULTIPLY) 


Ricordatevi che tutti i codici devono essere introddotti nel Mo¬ 
do virgolette. Ciò vuol dire che il primo set di virgolette deve esse¬ 
re stato digitato, in modo che l’interprete CBN! sappia che si ri¬ 
chiede un simbolo speciale. 

Poiché abbiamo fatto un uso estensivo del codice macchina, la 
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probabilità di un crash è elevata. Perciò ricordate di salvare il pro¬ 
gramma prima di dare il RUN. Se dovesse verificarsi un crash, a 
volte è possibile rimediare senza che vengano persi dei dati. Il trucco 
consiste nel tener premuto il tasto RUN/STOP mentre si preme il 
RESET. Ciò azzererà il monitor. Digitate allora X più RETURN, 
e il programma dovrebbe ancora risultare presente. 

Se avrete qualche problema, fate riferimento all’ Introduzione e 
alla sezione dei Suggerimenti finali. 
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1 

Marie Celeste 



Un’avventura al mare 

In quest’avventura vi trovate ancorati a fianco del leggendario 
vascello fantasma. 

Qual è il segreto della Marie Celeste? Dov’è l’equipaggio? 

Fornendo istruzioni giuste al computer potete risolvere questo 
mistero marino. Nel disporre il testo nel listato abbiamo avuto cu¬ 
ra di non rovinare il vostro divertimento, rendendo impossibile di 
indovinare la soluzione degli enigmi al momento della battitura del 
listato. 

Di solito nelle avventure si richiedono le direzioni Nord, Sud, 
Est, Ovest, ma poiché qui si tratta dell’ambiente nautico le dire¬ 
zioni sono Prua, Poppa, Tribordo e Babordo), che, nel caso non 
lo sappiate, corrispondono rispettivamente alla parte anteriore, al¬ 
la parte posteriore della nave, alla destra e alla sinistra rispettiva¬ 
mente, guardando la parte anteriore della nave. 

Mentre vi muovete, vi sarà utile disegnare una mappa degli spo¬ 
stamenti per rendervi conto del percorso seguito e dei luoghi an¬ 
cora inesplorati. 
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Vengono accettate istruzioni composte di due parole come ad 
esempio “prendi secchio”. Spesso i giochi di avventura richiedono 
al giocatore di battere INVENTARIO per vedere cosa si conqui¬ 
sta. In quest’avventura l’INVENTARIO è visualizzato dopo ogni 
azione. Uno degli aspetti gradevoli (ma spesso frustranti) delle av¬ 
venture è la prova di diversi verbi per vedere se hanno qualche ef¬ 
fetto! I verbi più comuni impiegati nelle avventure sono: prendi, 
raccogli, giù, su, scala e apri. Quando siete a bordo, provatene di¬ 
versi. Provate anche “Esamina gatto” al momento giusto e vedete 
cosa succede. 

Quando avrete risolto l’avventura, invitate i vostri amici a risol¬ 
verla a loro volta. È altrettanto piacevole assistere ai tentativi, alla 
ripetizione degli stessi vostri errori e ai successi. 


10 REM>>>>>>>MARIE CELESTE<<<<<<<<< 

20 REM33333GREG/ISSI/J IM<<<<<<<<<<< 

30 GOTO1250 
40 RETURN 

50 PRINT"£CLR3£RED3":COLOR0,1:C0L0R4,1 
60 PRINT’CCUR RTHCUR RT > £*Q }<''■*} £*R3 £ /A *3 £ 
-'Il f A U3£~*3£-'*3£ A I3" 

70 PRINT" CCUR RTHCUR RTH"-) £ A -3 t A -> 
£ A -3 £*R3 £*R3" 

80 PRINT ” £ CUP RT3CCUR RT3£ A -3 f A -3 < A ->£''U 
H A *}Uin A UH''*H A IH»RH A UH'*)C A I) C'~ 
> { A U)t A »H A IJ( A -K A Ul( A *H A IH A UK A *H A 
13£#Q3£ '*3£ A U3£ '*3 £ A I3“ 

90 PRINT"CCUR RT}£ CUR RT3£ A -> £ A -> £ A -3 £ 

'-}£'■-> C A - 3 £ A - } £ A - } £ A -} £ A - 3 £ A - 3 £ A 

-X''-} £ A -)£ A -> £ A -} £ A -3 £ A -3" 

100 PRI NT 11 £ CUR RT 3 £ CUR RT3£ A -3 £ A -3 £ A -3£ A 
U>{ A *3 £*W3 £ A -3 £ A 3£ A 3£ A -3£*Q3£- A *3£ A 'K3 £ A 

-} £*Q> C A *> £ '«} £ A -> £*Q> £-'*> £'K> £- A J>£ A *J £ 

A I ) £ A - ) £*Q3£'*3£~K}’ 

110 PRINT"£ CUR RT J £ CUR RT3£~-3 £ *-) £ A - 3 £ A 
-3 f A -3£ A -) £ A -3£ A -3 £ A -3 £ A -3 £ A -3 

£ A - 3 £ A -3£ A -3 £ A - 3 * 

120 PR I NT " £ CUR RT3£CUR RT3f*E3 £*E3 £*E3£~ 
J3£ A *3£ A K3£*E3 £ tfE 3 £ A J ) t A *3 £ A K 3 £ A J3£ A *3 

£ A *3£ A K3 C A J3£ A *3£ A K3£*E3 C A J3 £3 £ A K3 £ A J3 £ A 
*3 { A K3 £ A J3£ A K3 £ A J3 £ A *3£ A K3" 

130 PRINT"£ CUR DN3£YEL3": RETURN 

140 REM >>>>>>;>> INITIALIZE<<<<<<<<<< 
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150 DI MD(10,7) 

160 DIMO*(il) 

170 DIMM(10,4) 

130 CIMO(11) 

190 RE3TORE230 
200 FORN=1TO10 

210 READD(N,1),D(N,2),D(N,3),D(N,4) 

220 READD<N,5),D(N ,ài ,D(N,7) 

230 READM(N,1),M(N,2),M(N,3),M(N,4) 

240 NEXTN 

250 FORM—1TOl1 

260 READO* CN> , O (N> 

270 NEXTN:RETURN 

230 DATAI,8, 10, 11,20,0),0 

290 DATA0,0,0,0 

300 DATA12,36,23,0,0,0,0 

310 DATAI,1,0,0 

320 DATA13, 16, 1,29,4,30,20 

330 DATAI,0,1,0 

340 DATA13,14,3,23,0,0,0 

350 DATA0, 1,1,0 

360 DATAI, 13,35,3,33,0,0 

370 DATA0,1,0,0 

380 DATAI,8,9,11,20,0,0 

390 DATA0,0,0,0 

400 DATA2.30.20,13,15,22,16 

410 DATAI,0,1,1 

420 DATA5,30,20,0,0,0,0 

430 DATA0,0, 1,0 

440 DATAI,8,34,29,5,0,6 

450 DATAI,0,0,1 

460 DATAI,17,27,33,3,30,20 

470 DATA0,0, 1,0 

430 DATAKMIFE,6,TARPAULIN,1,WATER ON DECK, 
2,ROPE,6,NOTE,8,BUCKET,4,KEY,0 
490 DATACAT,9,MOP,5,WELLIE3,5,HOOKS,0 
500 REM >>>>>>>>>> INPUT <<<<<<<<<<<<< 

510 PRINT:MS="“:PRINT">"! : INPUTA* 

520 SOUND1,800,7:MS=M*+A* 

530 RETURN 

540 REM >>>)>>>>> INVENTORY <<<<<<<<<< 

550 PRINT"INVENTORY.* 

560 FORN=1TOH 

570 IF0(N)=13THENPRINT0*(N) 

530 NEXTN:RETURN 
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570 REM >>>>>>>>>>> 3PLIT <<<<<<<<<<<< 

600 v*="":n*=" " 

610 FORN=1TOLEM < MS) 

620 IFMID*(MS,N,1>=" "THEN640 
630 NEXTN:VS=MS: RETURN 
640 V*=LEFT*(MS,N-1) 

650 N*=RIGHTS(M*,LEN(M*)-N> 

660 RETURN 

670 REM >>>>>)>>>> COMMAND <<<<<<<<<< 

680 GO3UB510 
690 GOSU3600 
700 C*=LEFT*<V*,2> 

710 IFC$="PO“THENGOSUB1300 

720 I FCS=’ST"THENGOSUB1380 

730 IFC*=”FC"THENGOSUB1460 

740 IFCS="AF"THENGOSUB1540 

750 IFCi = ''GE"ORC$= "TA"THENGOSUB 1620 

760 IFCS=" GO " ORC^= " EN '' THENGOSUB1710 

770 IFCS>="EX"ORC$="IN"THENG03UB1750 

730 IFC*="UN"ORC*="OP * THENGOSUE1930 

790 IFC*="CU"THENGO3UB1930 

300 iFC*=“CL"THENGOSUB2030 

810 IFC*="KI"THENGCTO2100 

320 JFC*=“LO"THENG0SUE2150 

830 IFCi="SM”ORCS=“FU"ORC*=”RA"THENG0SUB22 
30 

340 C*=LEFT*<V*,3) 

S50 IFCS=" SUA ” OP.C*= "MOP" THENGO3UB2250 
360 IrCS=" MOV " ORCS= " !_ IF " THENGOSUB2300 
870 IFVS="QUIT"THENGOTO2350 
330 I FV*= ” -* " THEN900 

890 PRINT °I DON’T UNDERSTAND ...” 

900 G03UB1130:GO3UB550 
910 GOTO680 

920 REM >>>>>>>>>>> START <<<<<<<<<<< 

930 GO3UB1000 
940 GO3UB50 
950 COSUB40 
960 GOSUB150 
970 GOSUE550 
980 PO=6:RETURN 

990 REM >>>>>>>>>> STRINGS <<<<<<<<<<< 

1000 DIMW*<36> 

1010 RESTORE 1060 
1020 FORN=1T036 
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1030 READU* < N > 

1040 NEXTN 
1050 RETURN 

1060 DATAI AM ,ASTERN ,FORARD ,PORT ,STARE 
DARD ,UP ,DOWN ,IN A ,SMALL ,LARGE 
1070 DATABOAT ALONGSIDE ,THERE IS ,THE WIN 
D ,HOWLS ,SINGS 

1030 DATASGUNDS LIKE LAUGHTER. ,0UT3IDE ,1 
MSIDE ,IT IS , THE MARIE CELESTE. 

1090 DATAA .AND ,HERE. ,AND I .SLIDE ,ACROS 
S ,LOCKED ,UNLCCKED ,TO ,OF ,IS 
11.00 DATAI SEE .STORES. 

1110 DATAGAP .THE .WATER ON THE DECK.,BEVI 

L .BERMUDA TRI ANGLE .ATLANTIS 

1120 REM >>>>>>>>> DESCRIBE <<<<<<<<<< 

1130 REM 

1140 IFPO=2ANDO(10)< >13THENPRINT’YOU SLIP 
THROUGH TO THE NEXT DECK ! * 

1150 V0L8:SOUND2,300,10 

1160 IFPO=lANDO(2)=0THEN2410 

1170 FORN=lT07 

1180 PRINTW*(D (PO,N) ) I 

1190 NEXTN:PRINT 

1200 PRINT"I CAN SEE 

1210 FORN=lTOH 

1220 IFO(N)=POTHENPRINTO*(N)!','1 
1230 NEXTN:PRINT:RETURN 

1240 REM >>>>>>>> BEGIN GAME <<<<<<<<< 

1250 GOSUB930 

1260 NVS=“YOU CAMMOT GO THAT WAV.' 

1270 GOSUB1130 
1230 GOTO6S0 

1290 REM > > > > >.'>>/ COMMANDS :<<<<<<<:< 

1300 V*="*” 

1310 IFM < PC,4) < >0THEN1330 

1320 PRINTNV*:RETURN 

1330 IFMCPO,4)=1THENP0=P0-S:RETURN 

1340 A=M(PO,4):A=A-1 

1350 IFO(A)=13THENPRINT*YOU USE THE "0*<A> 

"AND GOT PORT.":ELSEGOTO1320 

1360 FORN=1TO3000:NEXTN 

1370 P0=P0-5:RETURN 

1330 V*=”*" 

1390 IFM(PO,2)< >0THEN1410 
1400 PRINTNV*:RETURN 
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1410 IFM(PO,2)=lTHENP0=P0+5:RETURN 
1420 A=M(PO, 2) :A=A-1 

1430 XFO(A> =13THENPR1NT"YOU USE THE ”0*(A> 

"AND GO TO STARBOARD," l ELSEGOTO1400 

1440 FORN=1TO3000:NEXTN 

1450 P0=P0+5:RETURN 

1460 U*="*“ 

1470 IFM(FO,1)<>0THEN1490 
1480 PRINTNVCRETURN 

1490 IFM(P0,1>=1THENPC=P0+1: RETURN 
1500 A=M(PO,1>:A=A-1 

1510 XFO < A) = 13THENPRINT“YOU USE THE "OSKA) 
"AND GO FORARD.":ELSEGOTO1480 
1520 FORN-1TO3000:NEXTN 
1530 PO=PO +1 ! RETURN 
1540 U*="*" 

1550 IFM (PO, 3 ) < >0THEN1570 
1560 PRINTNV*:RETURN 
1570 IFM(P0,3)=1THENP0=P0-1:RETURN 
1580 A=M(P0,3>:A=A-1 

1590 IFO(A)=13THENPRINT”YOU USE THE "0*(A) 

* AND GO AFT.”:ELSEGOTO1560 
1600 FORN=1TO3000:NEXTN 
1610 PO=PO-l: RETURN 
1620 

1630 FORN=1TO10 

1640 IFMS=OS(N)THEN1670 

1650 NEXTN 

1660 PRI NT *' DON ’ T BE SILLY !” I RETURN 

1670 IFN=4THENPRINT”IT3 TXED TOO TIGHTLY F 

OR ME 1 “: RETURN 

1680 0(N)=13 

1690 PRINT"YOU TAKE THE ”0*(N) 

1700 RETURN 
1710 US="*“ 

1720 IFN*< > " STOP.E" ANDN$< > "STORES"THENPRINT 
■YOU CANNOT GO THERE. . RETURN 
1730 IFM(10,4)=0THENPRINT"ITS LOCKED ! * : RE 
TURN 

1740 PO=S:RETURN 
1750 

1760 FORN=1TO11 

1770 IFN*=0*(N>THEN1800 

1780 NEXTN 

1790 PR I NT “ I DON ’ T SEE THAT HEREP.ETURN 
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1800 IFN=1THENPRINT"IT’S SHARP !" 

1810 IFN=2THENPRINT*IT’S GREEN !" 

1820 IFN=3THENPRINT"IT’S WET AND SALTY !" 
1830 IFN=4THENPRINT"IT'S TXED TIGHTLY. " 
1840 IFN=5THENPRINT"IT SAYS-":PRINT* 1 NO NE 
ED TO GO EELOW CECKS IN THIS GAME. ’ " 

1350 IFN=óANDO(7> =0TH£NPRINT“XT’S RATTLING 
! ":OP)=PO 

1360 IFN=6ANDO(7)<>0THENPRINT"IT’S EMPTY ! 

n 

1870 IFN=7THENPRINT“IT SAYS ’STORS’" 

1330 IFN=STHENPRIMT"IT RUNS OFF WITH A DEA 
D RAT. “: 0(8)=0 

1390 IFN=9THENPRINT"IT’S SOGbi !" 

1900 IFN=10THENPRINT"THEY’RE SMELLY !" 

1910 IFN=11THENPRINT"THEY SEEM TO BE FOR A 
POPE ! " 

1920 RETURN 
1930 U*=“*" 

1940 IFPO< >10THENPRINT”I CAN’T . . * 1 RETURN 

1950 XF0(7> < >13THENPRINT"I HAVE NO KEY ! * : 
RETURN 

I960 M(P0,4)=1:PRINT"THE STORE XS OPEN." 
1970 D(10,3)=2S:RETURN 

1930 VS="*":IFOtl)<>13THENPRINT"WITH WHAT 
?" : RETURN 

1990 IFN*=0®(4)THEN2010 

2000 PRXNT"YOU SADIST RETURN 

2010 PRINT"YOU CUT THE POPE AND TAKE IT." 

2020 0(4) =13‘.RETURN 

2030 V*="*":IFN*< >0*(4)THENV*="EI": RETURN 
2040 IFO (4) < >POANDO(4> < > 13THENPRINT"WHEF.E’ 
S THE LADDER RETURN 

2050 PP.INT"YOU CLIMB THE ROPE LADDER. " 

2.060 IFP0=6THENP0=7: O < 4 ) =7: RETURN 
2070 IFPO=7THENPO=6:O(4)=6: RETURN 
2030 IFP0=1THENP0=2:0(4)=2:RETURN 
2090 RETURN 

210? PRINT"AN ALBATROSS FLIES DOWN AND KIL 
LS YOU FOR BEING DESTRUCTIVE" 

2110 PRINT"{CUR DNJYOU ARE DEAD !" 

2120 FORN=1TO50001NEXTN 
2130 SOUND1,400,20 
2140 GOTO235.0 
2150 V*="*" 
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21c0 PRIMT”t CUR DNJEXITS ARE !" 

2170 IFM(PO,1)<>0THENPRINT"FORARD “J 
2180 IFM(P0,3>< >0THENPRXNT"AFT "J 
2190 IFM(FO,2 > < X3THENFRINT“STARBOARD "i 
2200 IFM(PO,4] < J0THENPRINT-PORT. " 

2210 IFM(PO,1>=0ANDN(PO,2)=0ANDMCPO,3)=0AN 
t'H ( PO, 4 ) =0THENPRI NT ” NONE. " 

2220 PRIMT: RETURN 
2230 V*=“*“ 

2240 PRIMT”NOT NOW SAILOR ! ".-RETURN 

2250 VS="*“:IFO <à> < >130R0 <9)<>13THENPRINT" 

WITH UHAT VOLI POOL. . . “ ! RETURN 

2263 IFPO<>2THENPRINT"N0T NERE YOU IDIOT. 

.■: RETURN 

2270 O(3)=0:PRINT"UELL DONE ! NOW IT IS SA 
FE.":M(2,3)=5 

2230 D(2,1)=1:D(2,2)=2:D(2,3)=20:D(2,4>=32 

:D(2,5)»2l:D(2,6)=U:D(2,7)=0 

2290 0(11) =2.-RETURN 

2300 VS="*":FORN=1TO10 

2310 IFN*=03s (N) THEN2330 

2320 NEXTN:PRINT"MOVE WHAT ? ! RETURN 
2330 PRINT“YOU MOVE IT,AND THE WIND BLOWS 
IT AWAY!" 

2340 O(N>=0:RETURN 

2350 PRINT" CCUR DNJCCUR RTKRVS OM>OANOTHE 
R GAME ? {RVS OFF} - * 

23Ó0 COSUB510 

2370 IFMS="YES"THENRUN 

2330 PRINT”CCUR DN}WELL YOU’RE PLAYINO ANY 
WAY ! " 

2390 FORN=1TO2500:NEXT 
2400 RUN 

2410 PRINT *SURPRISE !“:PRINT“WE HID IN "WS 
(21)}WS(11) 

2420 PRINTWS(20>"WE THOUGHT YOU WOULD” 

2430 PRINT"NEVER SOLVE THE ADVENTURE !"IGO 
TO2350 
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2 

Prego Signore? 



Rompicapo per tutti 

Questo programma non è quel che sembra! Potreste pensare di 
coglierne il segreto quando lo digitate, ma non è così; quando gio¬ 
cherete, dovrete affrontare la vera sfida! 

L’idea base è che un insegnante sullo schermo sceglie un argo¬ 
mento e voi dovete poi fornire esempi adatti. Per esempio, se sullo 
schermo appare la scritta “Film”, voi potreste comunicare una fra¬ 
se del tipo: “Prego signore, è un film con SUPERMAN?”, e l’inse¬ 
gnante può rispondere “sì” o “no”! Per capire il perché della ri¬ 
sposta potreste allora chiedere se non si tratta di “GUERRE STEL¬ 
LARI”, e di nuovo la risposta sarà “sì” o “no”. Il gioco continua 
fino a quando non avrete collezionato tre risposte positive di fila, 
mostrando con ciò di aver capito perché a certe domande viene ri¬ 
sposto “sì” e ad altre “no”. Potete barare, ma allora si tratterebbe 
d’una ben magra vittoria. 

In seguito, quando sarete ormai divenuti esperti del program¬ 
ma, potrete provare a cambiare le regole oppure ad introdurre nuovi 
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argomenti, e questa di per sé può essere una bella sfida! 

Invitate un amico a leggere il listato del programma e forse co¬ 
stui rimarrà sorpreso di trovare una netta carenza di dati, dopo di 
ché potrete fornire la vostra versione in merito oppure il seguente 
test di credulità: 

“Il sistema usa un avanzato sistema di elaborazione del testo ba¬ 
sato sulle caratteristiche matematiche delle lettere che compongo¬ 
no le parole dell’inglese. Così, un’attenta selezione dei parametri 
rende possibile mettere a punto specifiche risposte bersaglio in rou¬ 
tine apparentemente imprecise”. 

Naturalmente, voi conoscete come stanno realmente le cose, per¬ 
ché avete digitato le righe che verificano le entrate! Perché allora 
per la categoria “Birds” (Uccelli) una risposta adatta è: Sparrow 
(passero), Chaffinch (fringuello) e Swallow (rondine)? 


10 REM >>>>> PLEASE SIR <<<<< 

20 REM > > > > >DAVID/ISSI/JIM<<<< 

30 VOL8 
40 GOSUB870 
50 G0-0 
60 GOSUB100 
70 GOSUB360 
80 GOSUB660 

90 REM >>>>> SCREEN <<<<< 

100 COLOR0,1 :CDLOR4,1 : COLOR1,2,6:SCNCLR 
110 FORR=0TO24: CHARl, 21, R, *<'*-}“: NEXT 
120 CHARl,24,1,“GUESS A' 

130 CHAR1,24,9,-TOTAL- 

140 CHARl,24,17,-GAMES- 

150 8*=STR*<60>:CHARl,25,19,8* 

160 CHARl,0,13,-PLEASE SIR, IS IT...• 

170 PRINT” t HOME > { CUR DNXCUR RTXCUR RTJt» 
UX ''*X-*X'‘*X~*X~* >{''*}{'-I>- 
180 PRINT ” {CUR RTXCUR RTX"'-> {'•->“ 

190 PRINT “ {CUR RTHCUR RT >{''-} <•'-> 

{ "M > “ 

200 PRINT* ( CUR RTHCUR RT ><--> 

{-'NX*YX' , MJ ■ 

210 PRINT * < CUR RTHCUR RTHNH A *H A *}t A »> 
{~*X'-*X~*X •'Mi {~N>- <*NX~M>* 

220 PRINT * 1 CUR RTXCUR RTXCUR RTXCUR RT > 
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CCUR RTHCUR RTXCUR RTXCUR RTXCUR RTXC 
UR RT > { '“M > {*YX'‘I> { "N J “ 

230 PRINTXCUR RTXCUR RTXCUR RTXCUR RT > 
{CUR RTXCUR RTXCUR RTXCUR RTXCUR RTXC 
UR RT > { CUR RTXCUR RTXCUR RT > { ~ J } <*R } { *H ) 
■ 

240 RETURN 

250 REM >>> YES <<< 

260 CHAR1,4,3," {CUR LXCUR LXCUR LXC 
UR LJYES! * 

270 FORN=800TO900STEP5: SOUND1,N,2:NEXT 

280 WINcWIN+1 

290 RETURN 

300 REM >>> NO <<< 

310 CHAR1,4,3, * {CUR LXCUR LXCUR L>NO 

i ■ 

320 FORN=900TO800STEP-5:SOUND1,N,2:NEXT 
330 WIN“0 
340 RETURN 

350 REM >>> START GAME <<< 

360 WIN«0:G0«G0+1 
370 S=INT(RND(1)#20)+1 
380 CHAR1,32, 1,S*(S) 

390 Q*=STR*<TR>:CHAR1,25,ll.QS 
400 A=T(S,1):B=T(S,2):C=T(S,3) 

410 RETURN 

420 OK~ASC(LEFT*(A*,1)) 

430 lFA»2THENOK=ASC(RIGHTStA*,1)) 

440 IFA-3THENOK-ASC(MID*(A*,B,1)) 

450 IFA=*4THENOK=LEN (A*) 

460 IFA=5THENOK«SP+B 

470 IFS=2THENOK=ASC(LEFT*<RIGHT*<A*,2),1ì f 
480 RETURN 

490 REM >>>>> INPUT <<<<< 

500 AS=**:SP=0 
510 CHAR1,0,16,• 

520 CHAR1,0,16,A* 

530 GETW*:IFW*=""THEN530 

540 IFW*=" ”THENSP=SP + 1 ;GOTO580 

550 IFW*=CHR*<13)THEN600 

560 IFWS=CHRS <20)ANDLEN < A*)>0THENA*=LEFT*' 

A*,LEN < A*)-1):GOTO590 

570 IFW*<*A*ORW*>*Z*THEN530 

580 A*=A*+W*:IFLEN<A*>>15THEN500 

590 SOUND1,999,5:GOTO510 
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600 a=LEN<A*> 

610 IFQ<ÌORQ >15THEN500 
620 SOUND1,400,20: SOUND1,200,20 
630 GOSUB420:RE=OK 
640 RETURN 

650 REM >>>>> LOOP <<<<< 

660 GOSUB500 

670 IFA#="QUIT"THENRUN 

680 IFRE-CTHENGOSUB260:ELSEGOSUB310 

690 X*«STR*<WIN>:CHAR1,25,11, X* 

700 IFWXN=3THEN730 
710 GOTO660 

720 REM >>>>> WIN <<<<< 

730 SCNCLR 

740 CHAR1,11,5,’CONGRATULATIONS !" 

750 CHARl,8,10,*YOU SOLVED THE PUZZLE ** 
760 CHARl,7,15,"PRESS ’Y’ TO PLAY AGAIN.' 
770 GETA*:IFA*<>*Y"THEN770:ELSE60 
780 REM >>>>> SUBJECTS <<<<< 

790 DATA DOG,ACTOR,STAR,TV PROG,FILM,PLAY, 
SONG 

800 DATA MICRO,COLOUR,FLOWER,TREE,GEM,BOOK 

,SPORT,BEAST,BIRD,PLACE 

810 DATA FISH,NAME,CAR 

820 DATA2,1,78,1,2,82,3,2,79,5,1,2 

830 DATAI,1,83,5,0,0,5,5,6,4,1,8 

840 DATA4,1,4,2,1,80,4,1,3,2,1,68 

850 DATA5,2,4,3,3,67,3,4,83,3,3,65 

860 DATA2,1,82,3,2,65,3,2,65,4,1,6 

870 RESTORE790 

880 DIMSS(20> 

890 FORN«= 1TO20 
900 READS*(N) 

910 NEXTN 
920 DIMT(20,3) 

930 FORNAI TO20 

940 READT(N,1),T(N,2>,T(N,3) 

950 NEXTN 
960 RETURN 
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3 

lo accuso 



Un listato sospetto 

Eccovi un test deduttivo che sfiderà tutti gli investigatori in erba. 

Voi siete l’Lspettore Croucher del CID (Dipartimento Investiga¬ 
tivo del Computer) alle prese con un ampio corso di addestramen¬ 
to, che deve valutare le vostre capacità di resistenza e il vostro 
coraggio. Il corso inoltre valuta la vostra abilità nell’uso del 
computer per la caccia ai criminali. Poiché non possiamo in que¬ 
sto libro occuparci delle prove di coraggio e resistenza, ci siamo 
limitati alla parte riguardante il test deduttivo al computer. 

Il computer ha la capacità di generare migliaia di permutazioni 
diverse a partire da una serie di dati. In un batter d’occhio esso 
esprimerà il suo giudizio sul criminale e sui dati significativi avva¬ 
loranti il giudizio stesso, nonché sulle informazioni di un testimo¬ 
ne che inchioderanno definitivamente il colpevole. Voi avete a di¬ 
sposizione solo sei serie di dettagli significativi, che potete chiede¬ 
re digitando il numero corrispondente alla categoria prescelta che 
si trova a sinistra sullo schermo. Il computer ve li metterà a dispo¬ 
sizione sullo schermo assieme alle dichiarazioni dei testimoni chiave. 
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Dovrebbe essere facile identificare il sospetto correttamente, se avrete 
richiesto i dati giusti! 

11 numero corrispondente alla persona sospettatile voi credete 
essere il criminale è digitato e sarà valutata l’accuratezza delle vo¬ 
stre deduzioni. 

11 programma potrebbe avere un valore educativo, ma per lo più 
intende divertirvi. 


10 REM <<<<<<< X ACCUSE >>>>>>>>> 

20 REM<<<<<<< ISSI/JIM >>>>>>>>. 

30 REM 

40 GOSUB 990 
50 GOSUB 420 
60 GOSUB 570 
70 FOR G”1 TO 6 
80 GOSUB 1120 
90 NEXT G 
100 GOSUB 1230 

110 COLOR 1,3,3:PRINT * YOU MUST NOVI ENTER 
THE NUMBER OF THE ■ 

120 PRINT • SUSPECT YOU CONSIDER TO HAVE C 
OMMITTED THE CRIME." 

130 COLOR 1,15,2:PRINT * THE WITNESS SAID 

THAT.*: COLOR 1,5,3 

140 RESTORE 200 
150 FOR N=1 TO 10 
160 READ A* 

170 DUM=0:FOR M=1 TO 4:IF W(M)=N THEN DUM= 
1 

180 NEXT M:IF DUM=1 THEN PRINT " THE CRIMI 
NAL "JA*|S*(S,N> 

190 NEXT N 

200 FOR N*= 1 TO 12 

210 READ A,B:SOUND l.A.B 

220 NEXT NtGOTO 280 

230 DATA WAS A ,MAS ,WAS ,’S HAIR WAS ,’S 
HAIR WAS ,WORE A , "’S SHOES WERE ’ 

240 DATA ’S EYES WERE ,’S NOSE WAS , "HAD A 
■ 

250 DATA 100,25,200,25,300,25,400,25 

260 DATA 200,25,300,25,400,25,500,25 

270 DATA 300,25,400,25,500,25,600,25 

280 GETKEY A*:IF A*<"1 * OR A*>"4* THEN SOU 

ND 2,7,25:GOTO 280 
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290 CR“VAL(A*) : SOUND 1,600,50:SOUND 1,400, 

50:SOUND 1,200,50 

300 GOSUB 1230 

310 1F CR=S THEN GOTO 350 

320 PRINT * YOU’RE PATHETIC, 'INSPECTOR* C 
ROUCHER . NO ! I WILL DEMOTE YOU TO P.C.* 
330 PRINT:PRINT:PR1NT * IT WAS SUSPECT N 
UMBER *JS|* ! * 

340 GOTO 370 

350 PRINT * CONGRATULATIONS, INSPECTOR CRO 
UCHER !‘ 

360 PRINT:PRINT *YOU CORRECTLY DEDUCED THE 
CRIMINAL FROM THE CLUES GIVEN ! * 

370 PRINT:PRINT:PRINT ■ PRESS ’SPACE’ T 
O REPEAT GAME,* 

380 GETKEY A*:IF A*<>- * THEN GOTO 380 
390 SOUND 1,100,50:GOTO 50 

400 REM >>>>>>>>>> SCREEN <<<<<<<<<< 

410 REM 

420 COLOR 0,l:COLOR 4,l:COLOR 1,3,5 
430 GRAPHIC 0,1 

440 PRINT "{HOME> SUSPECTS: * ! TAB(12) ; * 1 *iT 
AB(20)$•2-|TAB<28){-3*JTAB<36)!*4* 

450 RESTORE 530:COLOR 1,6,2 
460 PRINT:FOR N=1 TO 10 
470 READ A*:PRINT A* 

480 NEXT N 
490 GOSUB 1230 

500 COLOR 1,8,3:PRINT * CHOOSE YOUR SUES'I 

ON <0-9 ).■ 

510 COLOR 1,4,4 
520 RETURN 

530 DATA 0-SEX,1—BUILD,2-HEIGHT,3-HA IR,4 -' 
* COL,5-ATTIRE 

540 DATA 6-SHOES,7—EYES,8—NOSE,9-SPECIAL 
550 REM >>>>>>>>> SET UP <<<<<<<<<<< 

560 REM 

570 S=INT<RND<1)*4)+1 

580 FOR N=1 TO 4 

590 W < N > =0 

600 CHECK=0 

610 A=INT<RND<1)*10)+1 

620 FOR 8=1 TO 4 

630 IF W<8)=A THEN CHECK=1 

640 NEXT 8 
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650 IF CHECK—1 THEN GOTO 600 

660 W< N )=A 

670 NEXT N 

680 FOR N=1 TO 10 

690 FOR 8=1 TO 4 

700 A-INT<RND<1>*4>+1 

710 SS<8,N)=LS(N,A) 

720 NEXT 8 
730 NEXT N 

740 N=W(l>:GOSUB 770:N=W<3>:GOSUB 770 
750 N=W < 2)5 GOSUB 870:N=W« 4):GOSUB 870 
760 RETURN 

770 A=INT(RND<1>*4)+1 
780 SS<S,N>=LS(N,A) 

790 T-S+2HF T>4 THEN T=T-4 
800 SS<T,N>=LS<N,A) 

810 1F A< >1 THEN B=A-1!ELSE B=4 
820 T=T-2!IF T<1 THEN T=T+4 
830 SS<T,N)=LS(N,B) 

840 T=T-2:IF T<1 THEN T=T+4 
850 SS<T,N)»LS(N,B) 

860 RETURN 

870 A=INT < RND(1)#4)+1 
880 SS<S,N>=LSIN,A) 

890 IF SOI THEN T=S-1:ELSE T=4 
900 SS(T,N)=LS(N,A) 

910 IF A< >4 THEN B»A+1:ELSE B=1 
920 T=T-l:IF T=0 THEN T=4 
930 SS<T,N)=LS<N,B> 

940 T=T-l:IF T=0 THEN T=4 
930 SS < T,N)=LS(N,B) 

960 RETURN 

970 REM >>>>>>>> INITIALIZE <<<<<<<<< 

980 REM 

990 DIM SS(4 f 10) 

1000 DIM W(4) 

1010 DIM LS(10,4) 

1020 A=RND <-1):RESTORE 1270 
1030 FOR N=1 TO 10 
1040 FOR M=1 TO 4 
1050 READ LS(N,M) 

1060 NEXT M 
1070 NEXT N 
1080 VOL 8 
1090 RETURN 
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1100 REM >>>>>>>>> QUESTION <<<<<<<<<< 

1110 REM 

1120 GETKEY A*:IF A*<-0- OR A*>*9" THEN GO 
TO 1120 

1130 SW**VAL(AX> 

1140 aw»ew+i 

1150 SOUND 1,600-GW*50,25 

1160 PRINT"{HOME 1“:FOR N=1 TO aW:PR!NT:NEX 
T N:SOUND 1,300,25 
1170 FOR PE«1 TO 4 

1180 PRINT TAB(PE*8+1) 5S*<PE,aW); 

1190 NEXT PE 
1200 RETURN 

1210 REM >>>>>>>>>> ERASE <<<<<<<<<<< 

1220 REM 

1230 PRINT“< HOME >“!FOR N=0 TO 14:PRINT:NEX 
T N 

1240 FOR N=15 TO 22:PRINT * 


1250 
T N 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


■:next n 

PRINT"<HOME>*:FOR N=0 TO 14:PRINT:NEX 
RETURN 

DATA MAN,BOY,WOMAN,GIRL 
DATA FAT,THIN,SLIM,STUBBY 
DATA TALL.LARGE,SHORT,STOOPED 
DATA NORMAL,SHORT,CURLY,LONG 
DATA BROWN,BLACK,BLONDE,GINGER 
DATA JEANS,SUIT,JACKET,CLOAK 
DATA PUMPS,BOOTS,SANDLES,CLOGS 
DATA BLUE,BROWN,GREEN,HAZEL 
DATA SMALL,LARGE,BROKEN,BENT 
DATA TATTOO,DAGGER,GUN,MOLE 
RETURN 
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4 

Star Trek 



Il programma che avanza coraggiosamente 

Sono state elaborate versioni di Star Trek per qualsiasi tipo di 
computer. Ciò la dice lunga sull’attrazione di questo gioco e fa di 
esso “il” gioco classico. 

Ora il vostro CBM si trasforma in un’Astronave Federale com¬ 
pleta di scanner e phasor. La vostra missione consiste nell’elimina- 
re dallo schermo i malvagi Klingon, senza adoperare tutta l’ener¬ 
gia a disposizione o farvi disintegrare. 

Questa versione include un campo stellare con effetto di zoom 
e lo svolgimento dell’azione in “tempo reale” durante gl’incontri 
col nemico o atterraggio sulle basi stellari. 

Le pagine che seguono sono degli estratti dal mega-manuale di 
32.544 pagine intitolato: “Come essere Capitano di un’Astronave 
in 4000 facili lezioni”: 

1. Mantieni la calma. Ricorda che il massimo che puoi perdere 
è: la tua vita, un’Astronave del valore di 20 bilioni di dollari galat¬ 
tici, e le vite di tutti gli esseri dell’universo. 
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2. Guarda dove vai! Usa gli occhi dell’Astronave per rilevare la 
natura dell’universo. Premendo “L”, che sta per Long Range Scan 
(LRS), cioè Esploratore a Lungo Raggio, otterrai sullo schermo la 
posizione della nave spaziale e quella dei nemici. I Klingon sono 
rappresentati sullo schermo da un cerchio con una freccia. Questo 
è l’antico simbolo di Marte, il dio foriero di guerra. 

Le basi stellari sono rappresentate da cerchi su croci. Questo è 
l’antico simbolo di Venere, dea dell’amore. 

I settori occupati sia da basi stellari che da nemici sono segnala¬ 
ti da un quadrato. Il quadrato è un antico simbolo di un quadrato. 

3. Renditi conto di quel che puoi fare. Premendo “Y” attiverai 
gli Esploratori a Breve (Short) Raggio; con ciò otterrai il numero 
di nemici e di basi stellari presenti nel settore in cui ti trovi in quel 
momento. 

4. Controlla la quantità di energia a disposizione. Atterrando in 
una base stellare puoi fare rifornimento. Per atterrare premi “D” 
(Dock) sul pannello di controllo. Se in quel settore esiste una base 
stellare, la sequenza d’atterraggio richiede che la nave spaziale venga 
diretta, usando i comandi direzionali destra e sinistra, fino a quando 
la base stellare non si trovi esattamente al centro dello schermo. 
Una volta atterrato, riceverai dell’altra energia per la navicella in 
generale e per gli scudi protettivi e le armi in particolare. Un falli¬ 
mento nell’atterraggio potrebbe comportare la perdita della base, 
perciò fai attenzione! 

5. Annientali! Un Capitano della Flotta Stellare deve fare il suo 
dovere, cioè annientare i malvagi e pericolosi Klingon. 

Se attorno ci sono Klingon, premi il tasto “B” per dare batta¬ 
glia. Usando i cursori, porta i nemici al centro dello schermo e quan¬ 
do sei pronto colpisci la barra spaziatrice per far fuoco e annienta¬ 
re il bersaglio. 

Se non hai subito il sopravvento, perdi il fattore sorpresa, e i ne¬ 
mici sono pronti a rispondere all’attacco, indebolendo lo schermo 
difensivo della navicella. Non smettere, continua l’attacco fino al¬ 
la distruzione dell’ultimo nemico nel settore. Poi prosegui verso altre 
vittoriose battaglie. 

6. Curva attentamente. Per muovere in una sezione qualunque 
bisogna premere il tasto“W” seguito da un numero tra 1 e 5, corri¬ 
spondente al fattore curva o distanza a cui desideri viaggiare. 

Ora invece devi precisare la direzione. Questa è data da un nu¬ 
mero compreso tra 1 e 8. Ciascun numero corrisponde ad un pun¬ 
to segnato su una circonferenza, con l’I in cima e gli altri numeri 
che seguono in senso orario. 
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7. Quasi l’ultima frontiera. All’inizio di una missione, puoi sele¬ 
zionare il livello. 1! livello facile prevede 10 nemici da individuare 
e distruggere. Il livello medio 20 e quello difficile 30. 

Quando completi un livello, la notizia della tua vittoria raggiunge 
il Comando Centrale dei Klingon, che invia forze per rimpiazzare 
le perdite, aumentate di 10 ogni volta. La sfida finale prevede un 
campo nemico forte di 200 unità. Sei pronto Capitano? Ora puoi 
iniziare a programmare... 

10 REM <<<<<<<<STARTREK >>>>>>>> 

20 REM <<<<<<< DAVID/ISSI >>>> 

30 POKE51,255:POKE52,55:POKE55,255:POKE56, 
55:PRINTCHR* < 8):VOL8: REM LOWER MEMTOP 
40 EN*= * < HOME > < WHT > { CUR RTXCUR RTHCUR RT 
} {CUR RTXCUR RTXCUR RTXCUR RTXCUR RTX 
CUR RTXCUR RTXCUR RTXCUR DNXCUR DNXCU 
R DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR 
DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR DN 
XCUR DNXCUR DNXCUR DNXCUR DNXCUR DNX 
CUR DNXCUR DNXCUR DN J * : A*= * <CUR RTXCUR 
RTXCUR RTXCUR RTXCUR RTXCUR RTXCUR RT 
XCUR RTXCUR RTXCUR RT> * 

50 SHS=*EN*+A* 

60 PH*=SH*+A* 

70 SE*=EN*+-<CUR DNXCUR DN> * 

80 EM*=SE*+A* 

90 AR*«=EMS+AX 

100 COLOR0,1 :COLOR4,1: COLORI,2:POKE1344,0 
110 PR1 NT"(CLR}(WHT}PER FAVORE ASPETTA UN PO'..." 

120 FORR=0TO29:READD:POKE 16352<R,D:NEXT:SYS 16352 

130 REM ROUTINE IN LINGUAGGIO MACCHINA PER RIDEFINIRE I 

CARATTERI 

HO DATA 160,0,185,0,208,153,0,56,185,0,209,153,0,57,185,0,210,153,0, 
58,185,0,211 

150 DATA 153,0,59,136,208,229,96 

160 REM PUNTA IL CARATTERE DA RIDEFINIRE 

170 POKE65298,PEEK(65298)AND251:POKE65299,PEEK(65299) 

AND30R56 

180 REM DATI PER IL DISEGNO DELL'ASTRONAVE 
190 FORR-0TO7:READD:POKE 14336.RJWIEXT 
200 DATA7,98,242,254.242,98,7,0 
210 REM DATI PER LE STELLE ECC. 

220 FORR=0TO39S READD:POKE14336+27*8+R,D:NE 
XT 
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230 FORR=0TO7:READD:POKE14336+33#8+R,D:NEX 
T 

240 FORR=0TO31:READD:POKE14336+35*8+R,D: NE 


XT 

230 DATA,,,, ,, ,8 
260 DATA,.128 


270 DATA,,,,128,,, 

280 DATA 128.. 

290 DATAI6,,,,,,, 

300 DATAI,,,,,,, 

310 DATA,,,1,,,, 

320 DATA,,,,,,,1 

330 DATA15,7,13,56,198,198,198,56 
340 DATA60,102,102,102,60,24,60,24 
350 RESTORE3030:FORR-OT022 4:READD:P0KE 15872*R r D:NEXT REM 
SCROLL DEI DATI 
360 DIMS(15,2) 

370 GOSUB1220 
380 GOSUB1300 
390 GOSUB940 
400 GOSUB580 

410 IFStSEC,1)>0THENGOSUB2060 
420 GOTO470 

430 PRINT " t HOME J t WHT > { CUR DNXCUR DNHCUR 
DNXCUR DNHCUR DNHCUR DNHCUR DNXCUR DN 
>■ J 

440 FORR=1T05 i PRINT *(CUR RT > *SPC< 

19)* *:next 

450 PRINT" <CUR UPXCUR UPXCUR UPHCUR RT> 
IHMHMMHMMI * SPC <19)*JI1)]1131*: RETURN 
460 PRINT*(HOME)*S :F0RR=1T039:PRINT* * 5 : NE 
XT:RETURN 

470 GETAS:IFA*=* *THEN550 
480 IFAS= * L * THENGOSUB1470 
490 IFA*“* S * THENGOSUB1650 
500 IFA*=*W*THENGOSUB1770 
510 IFAS= * D* THENGOSUB2130 
520 IFA*=*B*THENGOSUB2510 
530 GOSUB580 

540 IF EMEN=ALIEN THEN810 
550 SYS15872 

560 IF DEAD—1OR ENER C1THEN670 
570 GOTO470 

580 PRINT EN** CCUR LHCUR L)(CUR L> *ENE 
R 
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590 

PRINT 

SH*" 

{ CUR 

L >{CUR 

L >{CUR 

L J"SHI 

E 

600 

c 

PRINT 

PH*’ 

{CUR 

L}{CUR 

L >{CUR 

L >"PHA 

o 

610 

PRINT 

SE*" 

{CUR 

L >{CUR 

L >{CUR 

L>"SEC 

620 

PRINT 

EM*" 

{CUR 

L >{CUR 

L >{CUR 

L>"EME 


N 

630 A*»" N":IFS(SEC,Z>«1THENA*=" Y" 

640 PRINT AR* A*■{ HOME >" 

630 RETURN 

660 REM »»»»M0RT0«<«<« 

670 PRINT"(CLR)(CYN)(CUR DNMCUR DNMCUR DN) (CUR DN)" 

680 PRINTSPC( 15) ">CATTIVA SORTE<(CUR DNMCUR DN}" 

690 PRINTSPC(8)'L'ASTRONAVE ENTERPRISE” 

700 PRINT 

710 PRINT" E' STATA DISTRUTTA DAI KLINGTON MAICUR DN) ' 

720 PRINT" L’AMMIRAGLIO WELLINGTON HA DECISO DI DARTI (CUR 
DN)'' 

730 PRINT” ANCORA UN'ALTRA POSSIBILITÀ’ SE TU VUOI (CUR DN)’’ 
740 PRINTSPCtIO)"PRENDITI LA TUA VENDETTA !” 

750 PRINTSPCU2)” (CUR DN) (CUR DN) (CUR DN) (YEL) UN 
"CHR$( 130) "TASTO "CHR$(132) "PER CONTINUARE’’ 

760 FORT-1T02000.NEXT 
770 GETAl 
790 GOTO370 

800 REM »»»PROSSIMO<«<<< 

810 PRINT'’(CLR}<YEL)(CUR DNHCUR DNMCUR DNHCUR DN)’’ 

820 PRINTSPC(8) (BEN FATTO CAPITANO 1CIRK< (CUR DNHCUR DN}’’ 

830 PRINT "(GRN)ADESSO DEVI COMBATTERE CON UN VIOLENTO GRUPPO 
D! (CUR DNHCUR DN) ” 

840 PRINTSPC(12)''(WHT)<<<tCLlNGON»>’' 

850 ALIEN-ALIEN*10 

860 PRINTSPCt 12) ” (CUR DN) (CUR DN) (CUR DN) (YEL) UN 
CHRJ( 130 (TASTO ”CHRS$( 1 32)"PER CONTINUARE” 

870 FORT-1T02000 NEXT 

880 GETAt 

890 IFAt-"THEN880 

900 GOTO380 

910 REM»»»STELLE<<<<<< 

920 SYS 15872.RETURN 
930 REM»»»SCH ERMO<<<<<< 

940 COLORI 1.2,5 

950 PRINT TCLRHCUR DN) ”SPC( 10)'CU) ";:FORR-1T017:PRINT ”;: 
NEXT:PRINT”(T)’’ 
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960 F0RR=1T017SPRINTSPC(10) "{''->-SPC (17) ■{ 

~->-:next 

970 PRINTSPC ( 10) *{-'JX A *X''*X-'*X~*X''*X 
''*X''*X~*X A '»X ~*> X A *X A *X A *X~* 

X~*X A K)- 

980 PRINTSPC ( 4 ) * < A U> { A *X A *> t ''*> { A *> t •'*> { A 
*>{-'*>{■'*} { ''*> <*R X{'■*>{ ''«J { ~*X A *> { ''*> 
{•'#X''*X A *X*RX-'*X A ‘*X~*X-*X''*X A *X A 
*X A '*X~*X''I>- 

990 PRINTSPC (4) -<— >‘SPC<9> ■ { A -> "SPC (9) ■ { ~ 
-}*SPC<9)*{ A -)* 

1000 PRINTSPC (4) *{*eX A ‘*X A *X A *X A *X A '*X 
~*X'‘*X''*X'-*X-' + X A *X A *X A *> {-'*>{ A *X A * 
><-*>{ A *> { ~*> { A + >{-'*} t { A *> { A *X A '*> C 

A *X { A *H*W> * 

1010 PRINTSPC ( 4 ) “SPC ( 9 ) * { ~ - > * SPC < 9 > ■{ 

— } “SPC <9) *<•'->* 

1020 PRINTSPC ( 4 ) 

J { ■'*>1 •'*} { A *> {*EJ { A *> { A *} { A *J < ~*X A '*> { A * 
X~*X~*X A *X*E<-'*X A '*X A '*X 
~#X~*X A *X A KXHOMEJ * 

1030 PR I NT " < HOME > { CUR DNHCUR DNXCUR DNX 
CUR DNXCUR DNXCUR RTXCUR RTXCUR RTH'U 
X A *X -*X '''•*■ X A I > “SPC <23 ) ■t''U>( A lH A *X A ») 

{ A I > • 

1040 PRINT * {CUR RTXCUR RTXCUR RTH A -)(WH 
TJLRS*; SCOLORI,2,5:PRINT•{ A -> "SPC(23) * < A -> 
tWHT>SRS-J SCOLORI,2,5SPRINT 

1050 PRINT*< A U){ A *}( A *>{*E}{ A *}( A *H A *H*E 
X A *X''*X*W>*SPC (17) , t»8H A *)( A »)(*E)( A *) 

< A *X A #X*EX A #X A *X A I>- 

1060 FORR= 1T05S PRINT * { A - > "SPC ( 37 ) •{ A '->*SNE 
XT 

1070 PRINT- { A JX A »X A *X A *X A #X A #X A *X A * 
X A *X A ‘*X*W>*SPC<17> , (*8H A *H A *>( A *H A ») 
{'•*X A *X''*X~*X A *X A ‘K>* 

1080 PRINT'tCUR DNMCUR DNMCUR DN)(CUR DNMCUR DN) (CUR DN) (CUR 
DN) (CUR DNMCUR DNMCUR DNMCUR DNMCUR DN) (BLU)ENERGIA(CUR 
DNMCUR DNMCUR DNMCUR DN)SCUD0(CUR DNMCUR DNMCUR DNMCUR 
DNMREDJPHASOR" 

1090 PRINT" (CUR DNMCUR DNMCUR DNMCUR DNMCUR DN) (CUR 
DN)(BLU)SETTORE) (CUR DNMCUR DNMCUR DN)(GRN)NEMICI(CUR DNMCUR 
DNMCUR DNMCUR DNMCUR DNMRED)'-BASE(HOME)" 

1100 PRINT-{HOMEXWHTXCUR DNXCUR DN>-( 
1110 FORR=0TO7 
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1120 PRI NT SPC (11) SPC ( R ) -*"SPC<7-R> "fSPC(7 
-R)*\" 

1130 NEXT 

1140 PR1NTSPC(11> "IMMMMMMMt { CUR RT>Il 11JJ1J 

M 

1150 FORR-0TO7 

1160 PR1NTSPC <11)SPC( 7 -R >"• "SPC(R)“_*SPC(R 
) •'-* 

1170 NEXT 

1180 PRINTCHR*<153) *{CUR UPHCUR UPXCUR U 
PHCUR UPXCUR UPXCUR UP> “SPC ( 17) “ { "J X*R 
X*EX*RX''K>* 

1190 GOSUB580:GOSUB430 

1200 RETURN 

1210 REM»»»D1FF1C0LTA'<«<« 

1220 PRINT'ICLRKYEL} (CUR DNXCUR DN) (CUR DNXCUR DNXCUR 
DNHCUR RTXCUR RT) (CUR RT) (CUR RT) (CUR RTXCUR RT)(CUR RTMCUR 
RTXCUR RT)(H)D1FF1CILE (E)FACILE (A)MEDIO ?” 

1230 GETAS 

1240 IFA*=*H*THEN ALIEN=20:RETURN 
1250 IFA*-*E*THEN ALIEN=10:RETURN 
1260 IFA**"A"THEN ALIEN»15:RETURN 
1270 GOTO1230 

1280 PRINT’ {HOMEXCUR DNHCUR DNXCUR DNX 
CUR DNHCUR DNXCUR DNXCUR DNXCUR DN>*j: 

forr=ito5:print* tcuR rt> *:next:print* 

{CUR UP J {CUR UP>{CUR UPXCUR RTXWHTl ! ! ! ! .' 
■ 

1290 REM<<<<<<INIZI ALIZZAZIONE»»» 

1300 FORN=1TO15:S f N,1)»0:S<N,2)«0:NEXT 

1310 FORN-1TO ALIEN 

1320 SEC=INT<RND(8)*15)+1 

1330 IFS(SEC,1)>3THEN1320 

1340 S(SEC,1)-S(SEC,1)+1 

1350 NEXT 

1360 FORNAIT03 

1370 PO=INT(RND(8)*15)+1 

1380 IFS(PO,2)“1THEN1370 

1390 S<PO,2)-l 

1400 NEXT 

1410 PHAS=25:ENER=25:BAD=0:SHIE=25 
1420 SEC=INT<RND<8>*15>+1 
1430 EMEN-01DEAD-0 
1440 SCREEN»3163:COLOUR*2139 
1450 RETURN 
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H60 REM»»»ESPLORATORE LUNGO RAGGIO< <<<<< 

1470 FORR=0TO20:SOUND1,RND(8)*200+800,1: NE 
XT 

1480 PO=l:PRINT“{HOME XCUR dnhcur dnhcur 
DNXCUR DNXCUR DNXCUR DNXCUR DNXCUR D 
NXCUR DNXCUR DNXCUR RT> {CUR UP 

XCUR UPXCUR UPXCUR UP>*5 

1490 F0RN=1T03:S0UND3,1010,10:PRINT*{CUR D 
NI" 

1500 F0RM=1T05:S0UND3,1020,2:PRINT*{CUR RT 
>“t 

1510 SYS15872 

1520 IFPO=SECTHENPRINTCHR*(153)*@*J:GOT015 
70 

1530 IFS(PO,1) >0ANDS{PO, 2 ) =1THENPRINTCHRS < 
155)*{*+>* S:GOTO1570 

1540 IFS(PO,1) >0THENPRINTCHR*(151> *%" ; :GOT 
01570 

1550 IFS(PO,2)=1THENPRINTCHR*(152)*fc*;:GOT 
01570 

1560 PRINT* *; 

1570 FORR"1TO20:NEXT 
1580 PO*PO+1 :NEXTM,N:PRINT *{HOME > * 

1590 FORR=1TO100: SYS15872:FORT=1TO10:NEXTT 
,R 

1600 GOSUB430 
1610 SOUND3,1000,10 
1620 ENER»ENER-S 
1630 RETURN 

1640 REM»»»ESPLORATORE BREVE RAGGI0<<<<<< 

1650 FORR**0TO20ISOUND1,RND(8) 4-200+600,1 : NE 
XT 

1660 PRINT* (HOMEXCUR DNXCUR DNXCUR DNX 
CUR DNXCUR DNXCUR DNXCUR DNXCUR DNXCU 
R DN>*SPC(31)CHR*(151)*%<WHT>*S(SEC,1) 

1670 SOUND3,1010,20 
1680 FORR»1TO400:NEXT 

1690 PRINT:PRINTSPC(31)CHR*(152)*fc{WHT>*S( 
SEC,2) 

1700 SOUND3,1020,20 

1710 FORR=1TO50: SYS15872:FORT=1TO10:NEXTT, 
R 

1720 GOSUB430 
1730 SOUND3,1000,10 
1740 ENER=ENER-5 
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1750 RETURN 

1760 <<<<<<<<WARP >>>>>>>> 

1770 PRINT'(HOME) (CUR RTKCUR RT) (CUR RTKCUR RT)(YBL)F ATTORE 
DISTANZA/WARP ( 1 A 5)? (CUR LXWHT)"; 

1780 SOUND3,1015,5 

1790 GETA*:IFA«<“1-ORA*>*5*THEN1790:ELSEPR 
INTA* 

1800 SOUND3,1005,5 
1810 DIS=VAL(A*) 

1820 GOSUB460 

1830 PRINT(HOME) (CUR RTKCUR RT) (CUR RTKCUR RT) (CUR RT(CUR 
RTKCUR RTKCUR RTXCYNJDIREZIONE WARP (1 A 8)? (WHT) (CUR L)“. 

1840 SOUND3,1015,5 

1850 GETA*:IFA*< * 1‘ORA*>*8’THEN1850:ELSEPR 
INTA* 

1860 SOUND3,1005,5 

1870 DATA-5,-4,1,6,5,4,-1,-6 

1880 DR-VALIA*) 

1890 RESTOREI870 

1900 FORN=lTODR 

1910 READXY 

1920 NEXT 

1930 FORN-1TODIS 

1940 SEC=>SEC + XY 

1950 IFSEC<1 THENSEC=SEC+15 

1960 IFSEC >15THENSEC“SEC-15 

1970 NEXT 

1980 FORR=800TO1020: SYS15872: SYS15872 
1990 SOUND3,R,1 
2000 NEXT 
2010 GOSUB460 

2020 IFS <SEC,1) >0THENGOSUB2060 
2030 ENER=ENER~INT(DIS*1.5> 

2040 RETURN 

2050 REM<<<<<<ALLARME ROSSO»»» 

2060 PRINT "(HOME) (CUR RTKCUR RT) (CUR RTKCUR RT) (CUR RTKCUR 
RT) (CUR RTKYEL) "CHR$( 130)"<<««(RED)ALLARME ROSSO»»» 

(YEL) "CHR$( 132) 

2070 F0RR=1T08 

2080 SOUND1,600,8:SOUND2,620,8 
2090 FORT=1TO100:NEXTT,R 
2100 GOSUB460 
2110 RETURN 

2120 REM<<<<<<R1SERVA ENERGIA»»» 

2130 IFS < SEC,2)< >0THEN2190 
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2140 PRINTMOMEXCUR RTKCUR RT) (CUR RTMCUR RT) (CUR RTKCUR 
RT) (CUR RT)(GRN)NESSUNA BASE IN QUESTO SETTORE" 

2150 SOUND1 ( 300,201SOUND2,310,20 

2160 SOUND1,100,20:SOUND2,110,20 

2170 FORT=1TO500:NEXT 

2180 GOSUB460:RETURN 

2190 Y=0:X=INT(RND<8)*17>:XX=1 

2200 BS=SC+X+Y*40:BC=BS-1024 

2210 TS-PEEKIBS):TC=PEEK(BC > 

2220 POKEBS,38:POKEBC,125 

2230 GETA*:1FA*=*<CUR RT>*THENXX=XX-1 

2240 IFA*=*CCUR LJ*THENXX-XX+1 

2250 x=x+xx:y=y+i 

2260 1FX<0THENX=0:XX=0 

2270 IFX>16THENX«=16:XX=0 

2280 POKEBS,TS:POKEBC,TC 

2290 IFTS< >113ANDTS<>114THEN2380 

2300 POKEBS,TS:POKEBC,TC 

2310 PRINT■ {HOME 11 CUR RT} {CUR RTMCUR RTM 
CUR RTMCUR RTMCUR RTMCUR RTMCUR RTM CU 
R RTMCUR RTMCUR RTMCUR RTMCUR RTMWHTl 
>>>DOCKING<<< * 

2320 ENER=75:PHAS=75:SHIE=75 
2330 FORR=> 1TOS : VOLR : S0UND3,400, 5 
2340 NEXT 

2350 F0RR=8T01STEP-1:VOLR:SOUND3,400,5 
2360 NEXT 

2370 VOL8:SOUND3,1010,20:GOSUB460:RETURN 
2380 IFY<>13THEN2430 
2390 POKEBS,TS:POKEBC,TC 

2400 PRINT"(HOME)(CUR RT)(CUR RT) (CUR RTKCUR RT) (CUR RT) (CUR 
RT)(CUR RT) (CUR RTKCUR RTKWHTJBASE FUORI PORTATA" 

2410 FORR=600TO1020STEP10:SOUND3,R,2:NEXT 

2420 GOSUB460:RETURN 

2430 IFTS<>74ANDTS<>75THEN2480 

2440 POKEBS,TS:POKEBC,TC 

2450 PRINT'THOMEKCUR RT)(CUR RT) (CUR RTKCUR RT) (CUR 

RTXRED)«<LA BASE E' STATA DISTRUTTA»»" 

2460 F0RR= 1020T0600STEP-10:SOUND3,R,2:NEXT 
2470 GOSUB460:S(SEC,2)-0:RETURN 

2480 GOSUB920:SOUND1,1000,1 :SOUND2,l001,1 :F0RT-ITO200:NEXT 

2490 GOTO2200 

2500 REM »»»BATTAGLIA««< 

2510 PRINT 'tHOMEKCUR RTKCUR RT) (CUR RT)(CUR RT) (CUR RT) (CUR 
RTKCUR RTKWHT)THR$(130)"»»STAZIONE DI 
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COMBATTIMENTO<<<< "CHR$( 132)" 

2520 FORRR-lKM:FORR-(00TO600STEP20:SOUNDl,R,2:SOUND2,R*I0,2: 

NEXT 

R,RR 

2530 IFS(SEC,1)<>0THEN2570 

25-40 GOSUB-460: PRINT"(HOMEMCUR RTMCUR RT) (CUR RTMCUR RT) (CUR 
RT) (CUR RTMCUR RT) (CUR RTMCUR RT) (CUR RTMCUR RT) (CUR RT) (CUR 
RTMCUR RT)'CHRJ( 130 ("SETTORE PULITO'CHRK 132) 

2550 F0RR=1T04:SOUND1,1000,2:FORT-1TO200)N 
EXTT,R 

2560 GOSUB460:RETURN 

2570 X-<INT(RND < 8 > *15)+1> OR1:Y=(INT < RND < 8) 
*15)+1)ORI:XX=1:YY=- 1 
2580 BS=SC+X+Y*40:BC=BS-1024 
2590 TS=PEEK(BS):TC=PEEK < BC) 

2600 POKEBS,37:POKEBC,123 
2610 GOSUB920 

2620 GETA*:IFPHAS30ANDA*-* *THENGOSUB2810 
2630 IFKIL—1THENS(SEC,1)=S<SEC,1)-l:KIL=0: 
GOT02520 

2640 IFA*=*tCUR L>*THENXX=1 

2650 IFA*=“tCUR RT > * THENXX—1 

2660 IFAS— *{CUR DN>"THENYY-1 

2670 IFAS— * { CUR UP > • THENYY— 1 

2680 IFX-0THENXX-1 

2690 IFX-16THENXX--1 

2700 1FY=0THENYY=1 

2710 IFY-16THENYY--1 

2720 X-X+XX:Y-Y+YY 

2730 IFRND < 8)<.9THEN2780 

2740 COLOR0,3,2:SOUND3,500,10:COLOR0,1,0 
2750 SHIE-SHIE-l:1FSH1E3-1THEN2780 
2760 DEAD-1 

2770 PRINT'(HOMBMWHT) (CUR RTMCUR RT) (CUR RTMCUR RT) (CUR RT) 
(CUR RT) «««SCUDI FUOR1»»»":FORT-1T01000:NEXT:RETURN 
2780 GOSUB580 

2790 FORT-1TO40:NEXT:POKEBS,TS:POKEBC,TC:G 
OTO2580 

2800 REM««« FUOCO >»» 

2810 M1 =3804 : M2—M 1 + 14 

2820 FORR-0TO6 

2830 C1-MI-1024:C2=M2-1024 

2840 P-PEEK1M1):IFP<>32THEN2860 

2850 POKEM1,78:POKEC1,95 

2860 P-PEEK <M2>:1FP< >32THEN2880 
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2870 P0KEM2,77:POKEC2,95 
2880 SOUND3,900+R*10,2 
2890 M1=M1-39:M2=M2-41 
2900 NEXT 

2910 MI=3804: M2=M1 ■*■ 14 
2920 FORR=0TO6 

2930 P=PEEK(MI):IFP<>78THEN2950 
2940 POKEM1,32 

2950 P=PEEK<M2):1FP<>77THEN2970 

2960 POKEM2,32 

2970 M1=M1-39:M2=M2-41 

2980 NEXT 

2990 PHAS=PHAS-1 

3000 IFX=8ANDY=8THENEMEN=EMEN+1:KIL=1:POKE 

BS,32:COLOR0,2,7 

3010 SOUND3,950,20:COLOR0,1,0 

3020 RETURN 

3030 DATA173,216,56,168,162,0,232,189,216, 

56,202,157,216,56,232,224,7,208,243 

3040 DATA152,141,223,56,173,224,56,168,162 

,0,232,189,224,56,202,157,224,56 

3050 DATA232,224,7,208,243,152,141,231,56, 

162,7,189,224,56,74,144,2,9,128 

3060 DAT A157,224,56,202,16,242,173,236 

3070 DATA56,74,144,2,9,128,141,236,56,173, 

247.56.168.162.7.202.189.240 

3080 DATA56,232,157,240,56,202,224,0,208,2 

43.152.141.240.56.162.7.189.240 

3090 DATA56,74,144,2,9,128,157,240,56,202, 
16,242,173,255,56,168,162 

3100 DATA 7,202,189,248,56,232,157,248,56, 
202,224 

3110 DATA0,208,243,152,141,248,56,173,15,5 

7,168,162,7,202,189,8,57,232 

3120 DATA157,8,57,202,224,0,208,243,152,14 

1,8,57,162,7,189,8,57,10,144 

3130 DATA2,9,1,157,8,57,202,16,242,173,27, 

57,10,144,2,9,1,141,27,57,173,32 

3140 DATA57,168,162,0,232 

3150 DAT A189,32,57,202,157,32,57,232,224,7 
,208,243,152,141,39,57,162,7 
3160 DATA189,32,57,10,144,2,9,1,157,32,57, 
202,16,242,96 


36 



5 

L’arcobaleno frantumato 



Un gioco classico 

Questo secondo classico programma attrae giocatori d’ogni età. 
È uno dei programmi più corti di tutto il libro, e quindi adatto ai 
programmatori principianti. 

All’inizio vi si chiede di scegliere una racchetta larga o piccola, 
poi il gioco comincia. Scopo del gioco è abbattere tutti i cilindri 
con la palla. Potete muovere la racchetta a destra e a sinistra con 
i cursori o con il joystick. Bisogna muoverla in anticipo per incon¬ 
trare la palla sulla traiettoria di rimbalzo. 

Se perdete una palla ne avete ancora tre a disposizione prima 
che il gioco abbia termine. 11 punteggio raggiunto può essere letto 
sullo schermo; nelle mani di giocatori esperti può raggiungere va¬ 
lori elevati. 
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10 REM<<<<<<L ARCOBALENO ISS1/GRBG»»» 

20 FORN-0TO51: READA:POKE828+N,A:NEXT 
30 DATA24,160,209,164,208,32,240,255,96,16 
9,0,133,210,169,12,133,211,32,60,3 
40 DATA152,240,8,169,40,32,100,3,136,208,2 

48.138.32.100.3.177.210.133.215.96 

50 DATA24,101,210,133,210,165,211,105,0,13 

3.211.96 

60 SC-0:LI=5:V0L8 
70 PRINT"<CLR>{GY 3>* 

80 POKE208,12JPOKE209,10:SYS828:INPUT''LARGO/STRETTO ";A$ 

90 S*=*’:LM=38 

100 IFLEFT*(A*,l)="L“THENS*= , t*Y}{*Y}‘:LM= 
36 

110* GOSUB250 
120 CO=0 
130 X=1 
140 GOSUB360 
150 B=23 
160 N»RND(1) 

170 IFN>.05THENC=l:ELSEC=0 
180 C=C+(INT <RND <1)#10)+5) 

190 bd*-i:ad=-i 

200 GOSUB310 

210 GOSUB480 

220 IFCO>300THEN110 

230 GOTO200 

240 REM ««« SCHERMO »»» 

250 RESTORE280:PRINT *tCLR>":COLOR0,1 : COLOR 
4,1 

260 FORM*1TO10:READZ:FORM-0TO38:POKE208,M: 
POKE209,N:SYS828:PR1NTCHR*< Z > * < '‘Q> * 

270 NEXT:NEXT 

280 DATA28,28,30,30,31,31,156,156,159,159 

290 RETURN 

300 REM »»» MOVIMENTO ««« 

310 GOSUB760 

320 1FLE=1ANDX >0THENGOSUB390:X=X-1:GOSUB36 
0 

330 IFRI = 1ANDX < LMTHENGOSUB390:X=X*1:GOSUB3 
60 

340 RETURN 

350 REM * * * DISEGNA * * * 

360 POKE208,X:POKE209,23:SYS828:PRINT"(‘O)"S$TP)''; 

370 RETURN 
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380 REM * ■ * RUB ” * 

390 POKE208.X:POK£209,23:SYS828: PRINT" 

400 IFS*<>*“THENPRINT* *5 
410 RETURN 

420 REM * ' * DISEGNA LA PALLA * * * 

430 PRJNT'(WHT)'; 

440 POKE208,C:POKE209,B:SYS828: PRINT'CW)';: RETURN 
450 REM * * * L'URTO DELLA PALLA * * * 

460 POKE208,C:POKE209,B:SYS828: PRINT” RETURN 
470 REM »»» MUOVE LA PALLA <<<<<< 

480 GOSUB460:A2=C:B2»B 
490 A2*A2+AD!B2=B2+BD 

500 IFA2<0THENA2=0: AD«=1:SOUND2,500,15 
510 IFA2=39THENA2«38:AD=-1:SOUND2,500,15 
520 IFB2»1THENBX=1:SOUND2,600,10:6OTO580 
530 IFB2-23THEN620 

540 POKE208,B2:POKE209,A2:SYS837:CH=PEEK < 2 
15) 

550 IFCH<>81THEN570 

560 POKE208,A2:POKE209,B2:SYS828:PRINT" ■; 

570 IFCH«81THENSOUND2,600,5S SC=SC + 10:BX—B 

D:co=co+i: elsebx=bd 

580 c«c+ad:b*b+bd 

590 BD»BX 

600 GOSUB430 

610 RETURN 

620 POKE208,23:POKE209,A2:SYS837:CH=PEEK < 2 
15) t I FCH*=32THEN670 
630 BD—1 

640 N=*RND < 1 ) : IFN>0.SANDX<36THENC=C+1 

650 SOUND2,100,15 

660 RETURN 

670 GOSUB390:LI=LI-1 

680 SOUND1,75,15 

690 IFLI>0THEN130 

700 PRINT'(CRL)'" POKE208.12JPOKE209. SYS828: 

PRINT'CONGRATULAZIONII" 

710 PRINTTABI14)” (CUR DNKLT RED) HAI FATTO :"" 

720 PRINTTABI 14)"(CUR DN) "SC" PUNTI I” 

730 PRINTTABI 14)"(CUR DN)o(OR)UN'ALTRA PARTITA? (S/N)"" 

740 GETKEYA$:IFA$-'"S"THEN 60 
750 GOTO740 

760 LE-0:Rl-0:KS-PEEK(198) 

770 IFKS-48THENLE-1 
780 IFKS-51THENRI-1 
790 RETURN 
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6 

Il matto nel labirinto 



Un gioco con prospettiva 

Il terzo gioco classico che presentiamo appartiene al tipo dei la¬ 
birinti; disponete inoltre di una vista prospettica sulle direzioni che 
sono consentite. 

Il vostro scopo è rinvenire al più presto il modo di uscire dal la¬ 
birinto. Se andate abbastanza in fretta potrete sorprendere il mat¬ 
to, altrimenti sarà lui a sorprendervi nel labirinto! 

Sullo schermo appaiono i passaggi consentiti. La lancetta in basso 
sullo schermo vi indica la vera direzione che state seguendo e quanto 
vicini siete all’uscita in basso a destra. 

I cursori destra-sinistra cambiano la vostra direzione. Il cursore 
in alto vi fa avanzare d’un passo verso l’immagine mentre il curso¬ 
re in basso vi riporta indietro d’un passo ogni volta che lo premete 
e vi lascia nelle stessa direzione. 

Quando arrivate all’uscita dal labirinto, potete ripetere il gioco 
cercando di battere il tempo precedentemente impiegato, visualiz¬ 
zato sullo schermo. 

Questo gioco utilizza il linguaggio macchina per ottenere i rapi¬ 
di cambiamenti d’immagine. 
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10 REM <<<<<< IL MATTO NEL LABIRINTO »»» 

20 POKE52,60 S POKE54,60 Z POKE56,60 
30 POKE51,255:POKE53,255:POKE55,255:CLR 
40 SM=8:S0=SM-1:VOL 8 
50 DIM M(S0,S01,MTIS0,S0) 

60 GOSUB 960:TG*=*001500* 

70 GOSUB 850:X=0:Y=0:SP=1 
80 GOSUB 180:TI*=*000000* 

90 SOUND 2,400,4:GOTO 470 

100 GET I*:IF 1*=** THEN 260 

110 IP=ASC<I*>: SOUND 2,800,4 

120 IF IP=145 AND Y<S0 THEN IF M<X,Y+1)>0 

THEN Y=Y 1 : GOSUB 180 

130 IF IP=17 AND Y>0 THEN IF M(X,Y-1)>0 TH 
EN Y=Y-l:GOSUB 180 

140 IF IP=29 THEN SP=(SP+1) AND 3:GOSUB 18 
0:GOSUB 340 

150 IF IP=157 THEN SP=<SP-1> AND 3:GOSUB 1 
80:GOSUB 390 
160 GOTO 90 

170 REM ««« DIREZIONE DELLA FRECCIA »»» 

180 CHAR1,20,22,CHR*(32):CHAR1,21,23,CHR*( 
32):CHAR1,20,24,CHR*(32) 

190 CHAR1,19,23,CHR*(32): COLORI,2 

200 ON SP GOTO 220,230,240 

210 CHAR1,20,22,CHR*<98):RETURN 

220 CHAR1,21,23,CHR*(99): RETURN 

230 CHAR1,20,24,CHR*<98):RETURN 

240 CHAR1,19,23,CHR*(99) : RETURN 

250 REM >>>>>> TIMER <<<<<<<<<<<<<<<<< 

260 COLOR1,6,6:CHAR1,32,24,TI* 

270 IF TI*< TG* THEN 100 

280 SCNCLR:COLORI,2 

290 CHAR 1,4,11. IL MATTO TI HA PRESO DA" 

300 CHAR 1,4,13, "DIETRO. ERI TROPPO LENTO" 

310 GOTO 830 
320 RETURN 

330 REM <<<<<< GIRATA >»»> 

340 FOR 1-0 TO SO FOR J-0 TO SO 
350 MT(J,I)-M(I.S0-J) 

360 NEXT J,I 

370 ZZ-X:X-Y:Y-ZZ:X-SO-X:GOTO 430 
380 REM »»» GIRA A SINISTRA <<<<<< 

390 :FOR 1=0 TO S0:FOR J=0 TO S0 
400 MT < J,S0-1)=M(I,J) 
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410 NEXT J ,I 

420 ZZ=X:X=Y:Y=ZZ:Y=S0-Y 

430 FOR 1=0 TO S0:FOR J=0 TO S0 

440 M<J,I)=MT ( J , I ) 

450 NEXT J,l:RETURN 
460 REM ««« GENERA LA VISTA »»» 

470 FOR W=2 TO 0 STEP-1:V=Y+3-W 

480 IF V=SM THEN GOSUB 600:K=W:W=0 

490 IF V<SM THEN IF M(X,V>=0 THEN GOSUB 60 

0:k=w:w=0 

500 NEXT W:O=0:IF Y<S0 THEN IF M<X,Y+1>=2 
THEN 780 

510 IF X=S0 THEN FOR D=3 TO 1+K STEP -l:OC 

=0:GOSUB 700:NEXT D:GOTO 550 

520 V=0:FOR D=3 TO 1+K STEP -l:OC=0 

530 IF M<X+1,Y+V>>0 THEN OC=l 

540 GOSUB 700:V=V+1:NEXT D 

550 IF X=0 THEN FOR D=6 TO 4+K STEP -l:OC= 
0:GOSUB 700:NEXT D:GOTO 580 

560 V=0:FOR D=6 TO 4+K STEP -1:OC=0:IF M(X 

-1,Y+V>>0 THEN OC=l 

570 GOSUB 700:V=V+l:NEXT D 

580 GOTO 100 

590 REM <<«« CONTROLLA IL MURO >>>>>> 

600 ON W GOTO 620,630 

610 SYS 15646:GOTO 640 

620 SYS 15624:SYS 15650:GOTO 650 

630 SYS 15616:GOTO 660 

640 SYS 16128:SYS 16023 

650 SYS 16092:SYS 15989 

660 SYS 16056:SYS 15955 

670 RETURN 

680 RETURN 

690 REM <<<<<< STABILISCE LE PORTE »>»> 

700 ON D GOTO 710,720,730,740,750,760 
710 IF OC THEN SYS 16207:RETURN:ELSE SYS 1 
6128:RETURN 

720 IF OC THEN SYS 16189:RETURN:ELSE SYS 1 
6092:RETURN 

730 IF OC THEN SYS 16074 : RETURN: ELSE SYS 1 
6056:RETURN 

740 IF OC THEN SYS 16251 : RETURN:ELSE SYS 1 
6023:RETURN 

750 IF OC THEN SYS 16006: RETURN: ELSE SYS 1 
5989:RETURN 
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760 XF OC THEN SYS 15972:RETURN:ELSE SYS 1 
5955:RETURN 

770 REM <<<<<< FUORI >»»> 

780 SCNCLRCOLOR1,2 

790 CHARI,4,13,"BEN FATTO, QUESTA VOLTA SEI SFUGGITO AL" 

800 OIARI,-4,13,"MANIACO" 

810 CHARI,3,13,"HAI IMPIEGATO ...."♦TI$ 

820 TGJ-TII 

830 FOR 1-1 TO 5000:NEXT LGOTO 60 

830 REM <<<<<< DISEGNA LA SCHERMATA »»» 

850 RESTORE 1360 

860 FOR I -1 TO S0:FOR J-0 TO SO 

870 READ M(IJ): NEXT J.I 

880 COLOR 3,1 COLOR O.LCOLOR 1.3,6 

890 SCNCLR:SYS 16225:SYS 16056:SYS 15955 

900 COLORI,2:CHAR1,2,23,"DESTINAZIONE:" 

910 CHAR1,23,23,"SUPERATA" 

920 COLOR1.6,6:CHARl,9,23,TG$ 

930 COLORI,5,6:CHAR1,20,23,CHR$(209) 

930 RETURN 

950 REM <<<<<< INIZIALIZZAZIONE »»» 

960 RESTORRAD-15616 

970 READ DIF D<0 THEN RETURN 

980 POKE ADJD:AD-AD* I :GOTO 970 

990 REM «««DATI DEL PROGRAMMA >»>» 

1000 REM 

1010 DATA 169,163,160,12,162,17,208,6,169, 
27,160,13,162,11,133,220,132,221,169 
1020 DATA 160,160,32,145,220,136,208,251,7 
6,37,63,162,5,208,2,162,3,169,164,160 
1030 DATA 12,133,220,132,221,169,36,160,15 
,133,222,132,223,160,30,169,32,132,224 
1040 DATA 145,220,145,222,136,208,249,24,1 
65,220,105,41,133,220,165,221,105,0 
1050 DATA 133,221,56,165,222,233,39,133,22 
2,165,223,233,0,133,223,164,224,136, 136 
1060 DATA 202,208,212,96,24,165,220,105,40 
,133,220,165,221,105,0,133,221,96,165 
1070 DATA 222,145,220,200,196,224,208,249, 
165,223,145,220,32,99,61,230,224,160,0 
1080 DATA 202,208,233,96,165,222,145,220,2 
00,196,224,208,249,165,223,145,220,32 
1090 DATA 47,63,230,224,160,0,202,208,233, 
96,165,222,145,220,136,196,224,208,247 
1100 DATA 165,223,145,220,32,99,61,198,224 
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,160,4,202,208,233,96,165,222,145,220 
1110 DATA 136,196,224,208,247,165,223,145, 
220,32,47,63,198,224,160,4,202,208,233 
1120 DATA 96,160,0,132,224,240,163,160,0,1 
32,224,240,181,138,168,134,224,208,199 
1130 DATA 138,168,234,234,134,224,208,215, 
133,222,132,223,208,224,133,222,132,223 
1140 DATA 208,224,133,222,132,223,208,224, 

133.222.132.223.208.224.133.220.132.221 
1150 DATA 169,160,160,223,208,222,133,220, 
132,221,169,32,160,32,208,212,133,220 
1160 DATA 132,221,169,160,160,105,208,208, 
133,220,132,221,169,32,160,32,208,198 
1170 DATA 133,220,132,221,169,160,160,233, 

208.194.133.220.132.221.169.32.160.32 
1180 DATA 208,184,133,220,132,221,169,160, 

160.95.208.180.133.220.132.221.169.32 
1190 DATA 160,32,208,170,169,0,160,12,162, 
4,32,3,62,169,192,160,15,162,4,208,179 
1200 DATA 169,0,160,12,162,4,32,13,62,169, 

192.160.15.162.4.208.172.169.164.160 

1210 DATA 12,162,3,32,3,62,169,36,160,15,1 
62,3,208,145,169,164,160,12,162,3,32,13 
1220 DATA 62,169,36,160,15,162,3,208,138,1 

69.31.160.13.162.2.32.3.62.169.175.160 
1230 DATA 14,162,2,208,186,169,31,160,13,3 
2,13,62,169,175,160,14,162,2,76,33,62 
1240 DATA 169,35,160,12,162,4,32,43,62,169 
,227,160,15,162,4,76,63,62,169,35,160 
1250 DATA 12,162,4,32,53,62,169,227,160,15 
,162,4,76,73,62,169,192,160,12,162,3 

1260 DATA 32,43,62,169,64,160,15,162,3,76, 
63,62,169,192,160,12,162,3,32,53,62,169 
1270 DATA 64,160,15,162,3,76,73,62,169,54, 
160,13,162,2,32,43,62,169,198,160,14 
1280 DATA 162,2,76,63,62,169,54,160,13,162 
,2,32,53,62,169,198,160,14,162,2,76,73 
1290 DATA 62,234,32,99,61,202,208,1,96,76, 

18.61.56.165.220.233.40.133.220.165.221 
1300 DATA 233,0,133,221,96,32,238,62,169,1 
60,141,236,12,141,20,13,141,244,14,141 
1310 DATA 28,15,96,32,18,63,169,160,141,97 
,13,141,98,13,141,161,14,141,162,14 

1320 DATA 96,169,159,162,12,133,220,134,22 
1,162,17,169,160,160,40,145,220,136,208 
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1330 DATA 251,32,99,61,202,208,241,90,102, 
2,76,168,62 
1340 DATA -1 
1350 REM 

1360 DATA 1,1,1,0,1,1,1,0 
1370 DATA 1,0,1,1,1,0, 1,1 
1380 DATA 1,1,0,0,1,1,0,0 
1390 DATA 0,1,1,1,0,1,1,1 
1400 DATA 1,1,0,1,1,1,0,1 
1410 DATA 1,0,1,0,1,0,1,1 
1420 DATA 1,1,1,0,1,1,1,0 
1430 DATA 0,1,0,0,0,0,1,2 
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7 

Giochiamo a dama? 



Una microdama da computer 

L’idea è assai semplice: dovete sbarazzarvi di tutte le pedine che 
vi si parano innanzi saltandole. È necessario per far ciò che ci sia 
uno spazio vuoto dall’altro lato. 

All’inizio potete muovere in una sola direzione, cioè verso l’alto 
se avete le pedine bianche, o verso il basso se avete quelle nere. Per 
muovere una pedina bisogna specificare la lettera della colonna cor¬ 
rispondente e il numero della fila in cui si trova, e poi allo stesso 
modo la casella a cui la destinate. 

Se non è possibile saltare una pedina avversaria, allora una qual¬ 
siasi delle vostre pedine può essere portata in una casella dello stesso 
colore spostandola solo di una casella alla volta. Se una pedina rag¬ 
giunge l’altro lato della scacchiera, diventa “dama”. Ciò significa 
che d’ora in poi può muovere sù e giù e pertanto è più potente. 

Il fatto che siate costretti a “mangiare” una pedina avversaria 
ogni qualvolta sia possibile è in disaccordo con una variante del 
regolamento, sostenuta da alcuni, secondo la quale chi manche- 
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rebbe di “mangiare” la pedina avversaria perderebbe la propria, 
che gli verrebbe “soffiata”. 

Nella nostra versione per computer, il programma non accetta 
istruzioni di semplice avanzamento di una pedina, quando ci sia 
invece la possibilità di mangiare una pedina avversaria. Pertanto 
l’indicatore continuerà a mostrare lo stesso colore di giocatore fi¬ 
no a che la presa non venga effettuata. 

Ad un punto qualsiasi si può arrestare il gioco e salvarlo su na¬ 
stro premendo S. Così invece premendo L possiamo caricare un 
gioco precedentemente salvato. Durante una partita, o dopo aver¬ 
ne caricata una, potete selezionare il modo passo passo premendo 
il tasto (shift 3). Premendo la barra dello spazio il modo passo passo 
parte dall’inizio della partita. Premendo di nuovo (shift 3) si esce 
dalla partita automatica e potete continuare voi da quel punto. 

10 REM ««<< DAMA <> ISSI»»» 

20 REM 
30 GOSUB 420 

40 FOR N=1 TO 100:ZS(N,1)=*00*:Z«(N,2)=*00 
* :NEXT 

50 GOSUB 290:GOSUB 680 
60 COUNT=l 

70 GOSUB 1630:GOTO 70 

80 GAM«0:FOR N=1 TO 8:FOR M=1 TO 8 

90 IF M*tN,M)=*B* OR M*(N,M)=*D* THEN GAM= 

1 

100 NEXT:NEXT 

110 IF GAM=0 THEN GOTO 180:ELSE GAM=0 
120 FOR N=1 TO 8:FOR M=1 TO 8 
130 IF M*(N,M)»-A" OR M*CN,M)-’C* THEN GAM 
= 1 

140 NEXT:NEXT 

150 IF GAM-0 THEN GOTO 220:ELSE RETURN 

160 REM <<<<<< VINCE IL NERO »»» 

170 REM 

180 GRAPHIC 0,1 COLOR 1,4,3:CHAR 1,15,5,'TL NERO HA VINTO!” 

190 GOTO 230 

200 REM <<<<<< VINCE IL BIANCO »>»> 

210 REM 

220 GRAPHIC 0,1:COLOR 1,4,3:CHAR 1,15,5,"IL BIANCO HA VINTO !" 

230 COLOR1,3,3:CHAR 1,5,12,"VUOI UN REPLAY (S/N)?" 

240 FOR N-1 TO 

3SOUND1,200,15SOUND1.300.15SOUND1,400,15:NEXTSOUND 1,300,25 
250 GETOY A$:1F Aj-'S" THEN GOSUB 1940:GOTO 50 
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260 IF AJ-'N" THEN GOTO 50:ELSE GOTO 250 
270 REM <««< SCHERMO »»>> 

280 REM 

290 GOSUB 680 

300 COLOR 0,14,0:COLOR 4,15,2:COLOR 1,14,4 
:GRAPHIC 0:GRAPHIC CLR 

310 PRINT ■ {CLR} 1CUR DNJ I A UK A C>( A CH''C> 
{ A CH A CK A C}( A C){ A C}{ A C){ A C>{ A CH A CH A C>{ A 
CH A CH”CH A I)‘ 

320 A*=‘ {•'-> {RVS ON> {RVS OFFJ {RVS 
ON> {RVS OFFJ {RVS ONJ {RVS OFFJ {RVS 
ONJ {RVS OFF J { '"' - J “ 

330 B*=‘ {"-J{RVS ONJ {RVS OFFJ {RVS ON 
J {RVS OFFJ {RVS ONJ {RVS OFFJ {RVS ON 
J {RVS OFFJ {*->* 

340 FOR N=*l TO 4: PRINT A*: PRINT A*: PRINT B 
*:print b*:next n 

350 PRINT * {^J J{ A 'CJ{''CJ{''CJ{''CJ{-'CJ{ A 'CJ{ 

A C J { "C J { ~C J { '‘C J { ^C J { ~C J { ~C J { ~C J { ~C J { -C J { ~K 
J* 

360 PRINT • ABCDEFGH* 

370 FOR N=1 TO 8:N*-STR*<9-N>:CHAR 1,0,N*2 

,N*:NEXT 

380 GOSUB 750 

390 RETURN 

100 REM ««« CARATTERI »»» 

410 REM 

420 FOR N=52 TO 56 STEP 2:POKE N,55:NEXT 
430 RESTORE:FOR N=0 TO 30:READ A:POKE 828+ 

n,a:next:sys 828 

440 POKE 65298,192:POKE 65299,<PEEK<65299) 

AND 3)OR 56 

450 FOR N-0 TO 95 

460 READ A:IF N>63 THEN A*255-A 

470 POKE 15136+N,A:NEXT 

480 DIM M*(8,8):DIM Z*<100,2> 

490 VOL 8 
500 RETURN 

510 DATA 160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

520 DATA 177,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
530 REM 

540 DATA 255,255,255,255,240,143,127,31 
550 DATA 255,255,255,255,15,241,254,206 
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560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 REM ««« 


66.80.85.85.133.240.255.255 

194.30.226.30.241.15.255.255 
255,255,255,255,240,128,0,0 
255,255,255,255,15,1,0,48 

67.80.85.85.133.240.255.255 
194,28,224,0,1,15,255,255 
0,1,9,86,98,86,68,128 

0,128,144,106,70,106,26, 1 
0,1,9,87,99,118,125,255 
0,128,144,234,198,110,58,187 
INIZI ALIZZAZIONE »»>> 


670 REM 

680 FOR N—1 TO 8:FOR M=l TO 8 : M* < N , M > =’0* : 

next:next 

690 FOR N=1 TO 8 STEP 2 

700 m*<i,n+1) = *A":m*<2,N) = "a*:m*(3,n+d = "A 


710 M*(8,N>="B*:MS(7,N+1>=*B - :M*<6,N)=’B" 
720 NEXT N:RETURN 

730 REM ««« DISEGNA I PEZZI »»» 

740 REM 

750 FOR N=1 TO 8:FOR M=1 TO 8 

760 C*=M*CN,M):XF C*=-0" THEN GOTO 780 

770 GOSUB 810 

780 NEXT:NEXT:RETURN 

790 REM <««< PEZZO »»» 

800 REM 

810 IF C*=-0' THEN D*=*{RVS ON> {RVS OFF> 
*:D1*=*{RVS ON> {RVS OFF J": GOTO 860 
820 D*=CHR*<228>+CHR*<229> :D1*=CHR*<230> +C 
HR*(231> 

830 IF C*=*A* THEN D*=CHR*(232 M-CHR*<233> : 
D1*=CHR*<234)+CHR*<235> 

840 IF C**=-D* THEN D*=CHR* ( 236)+CHR* ( 237 ) 
850 IF C*="C* THEN D*=CHR*(238)+CHR*<239): 
D1*=CHR*(234)+CHRS(235 > 

860 COLOR 1,14,4:CHAR 1,M*2+1,N*2,D*:CHAR 
1,M*2+l,N*2+1,DI* 

870 RETURN 

880 REM <<<<<< MOSSA »»>> 

890 REM 

900 COLOR 1,14,4:FOR N=2 TO 15:CHAR 1,25,N 
, '{RVS ON> {RVS OFF>”:NEXT 

910 COLOR 1,3,2: FOR N=6 TO 13.'CHAR 1,26,N, 
' ":NEXT 
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920 COLOR 1,16,4,CHAR 1,26,3," DAMA. ":CHAR 1,26,4,"." 

930 COLOR 1,8,4:1F PLA-1 THEN N$-'BIANCO': ELSE N$-"NERO" 
940CHAR 1,29,6,N$:CHAR I,27,8,'DA:-':CHAR 1,27,11,"A:-" 

950 Y=8:GOSUB 980:F*=N* 

960 y=ii:gosub 980:S*=N* 

970 RETURN 
980 N*="• 

990 GETKEY A*:SOUND 1,500,10 

1000 IF A*=*Q" THEN RUN 

1010 IF A*»-S" THEN GOSUB 1680 

1020 IF A*="L" THEN GOSUB 1800:GOTO 900 

1030 IF A*=‘W AND COUNT>1 THEN Z*(COUNT,l 

)= "FF“: GOTO 1940 

1040 IF A*<"A" OR A*>“H“ THEN GOTO 990 
1050 NC=A*:CHAR 1,34,Y,N* 

1060 GETKEY A*:SOUND 1,600,10 
1070 IF A*<-1* OR A*>-9" THEN GOTO 1060 
1080 N*-N*+AS:CHAR 1,34,Y,N*:RETURN 
1090 REM >>>>>>>>>>> MOVE <<<<<<<<<<<< 

1100 REM 

1110 GOSUB 1230 

1120 M«(S1,S>=M*(F1,F>:M*(F1,F)=*0* 

1130 IF Sl = l AND M* <1,S)=“B“ THEN MS<1,S>= 
"D* 

1140 IF Sl=8 AND M*<8 ,S)=“A* THEN M*(8 ,S>= 
*C* 

1150 SOUND 1,750,30 

1160 RO=Sl:CL=S:GOSUB 1190 

1170 RO=Fl:CL=F:GOSUB 1190 

1180 RETURN 

1090 REM ««« MOSSA »»» 

1200 GOSUB 810:RETURN 
1210 REM <<<<<< CONVERSIONE >»>» 

1220 REM 

1230 F=ASC<LEFT*<F*,1>>-64 
1240 F 1=9-VAL < RIGHT* ( F*, 1 ) ) 

1250 S=ASC(LEFT*(S*,1))-64 
1260 S1=9-VAL(RIGHT*(S«,1)) 

1270 RETURN 

1280 R*=CHR*(M+64)+STR*(9-N> 

1290 RETURN 

1300 REM ««« CONVALIDA »»» 

1310 REM 

1320 GOSUB 1230:P*=*B":P1*="D" 

1330 IF PLAY=2 THEN P»=‘A*:P1*="C■ 
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1340 CHECK=1:CS-M01F1,F):D*»M*(S1,S> 

1350 IF C*='0* OR D*<>*0* THEN RETURN 
1360 XF 1C*='A' OR C*='C">AND PLAY=1 THEN 
RETURN 

1370 IF <C*=-B* OR C*=*D')AND PLAY=2 THEN 
RETURN 

1380 IF C**'A' AND S1<F1 THEN RETURN 
1390 IF C*='B' AND SI>F1 THEN RETURN 
1400 xd«s-f:yd=si-fi 

1410 IF SGN(XD)*(XD>*>1 AND SGN(YD)*(YD)=1 
THEN 1490 

1420 IF < SGN(XD)*XD< >SGN(YD)*YD > OR < XD#XD< > 
4) THEN RETURN 

1430 X*=M*(F1+(YD/2),F +(XD/2>) 

1440 IF <X*=-A- OR X*='C*)ANDPLAY=2 THEN R 
ETURN 

1450 IF (X*«'B‘ OR X*='D')ANDPLAY=1 THEN R 
ETURN 

1460 IF X*“-0“ THEN RETURN 

1470 N-F1+(YD/2):M=F+ <XD/2>:M*(N,M) = -0*:C* 
*='0': GOSUB 810 

1480 GOSUB 1280:Z*(COUNT,1)=R*:Z*<COUNT,2) 
=R*:COUNT-COUNT +1 
1490 CHECK <s 0: RETURN 
1500 REM <<«« TURNO »»» 

1510 REM 

1520 CHAR ,25,20,' * :GOSUB 900 

1530 GOSUB 1320 

1540 IF CHECK=0 THEN 1570 

1550 COLOR 1.9.4.-CHAR 1,25,20,"MOSSA NON VALIDA" 

1560 SOUND 1,600,25:SOUND 1,400,25:SOUND 1 
,200,35:FOR 9=1TO200:NEXT:GOTO 1520 
1570 GOSUB 1110 

1580 Z* < COUNT,1)=F*:Z*(COUNT,2)=SS 
1590 COUNT-COUNT+1:IF COUNT=101 THEN COUNT 
= 1 

1600 RETURN 

1610 REM <<<<<< ENTRAMBI ! GIOCATORI >»»> 

1620 REM 

1630 PLAY=l:GOSUB 1520:GOSUB 80 
1640 PLAY=2:GOSUB 1520:GOSUB 80 
1650 RETURN 

1660 REM ««« REGISTRA »»» 

1670 REM 
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1680 OPEN 1,1,1,"BOZZE" 

1690 FOR N«1T08:F0R M-1T08 
1700 PRINTN1,M*«N,M> 

1710 NEXTM.N 
1720 FOR N*ITO100 

1730 PRINT01,Z*«N,1):PRINT#1,Z*<N,2) 

1740 NEXT N 

1750 PRINTHI,COUNT:PRINTtt1 
1760 CLOSE 1 

1770 SOUND 1,200,20:SOUND 1,400,20:SOUND 1 
,600,30:RETURN 

1780 REM <<<<<< CARICA >>>>>> 

1790 REM 

1800 SOUND1,200,20: SOUND1,400,20:SOUND1,60 
0,30 

1810 OPEN 1,1,0,'BOZZE" 

1820 FOR N=1T08:F0R M=1T08 
1830 INPUTttl,M*(N,M> 

1840 NEXTM.N 
1850 FOR N=1TO100 

1860 INPUTH1,Z*(N,1):INPUT01,Z*(N,2) 

1870 NEXT 

1880 INPUT01,COUNT 
1890 CLOSE 1 

1900 SOUND 1,200,20:SOUND 1,400,20: SOUND 1 
,600,30:GOSUB 300:GOSUB 750 
1910 RETURN 

1920 REM >>>>>>>>>> REPLAY <<<<<<<<<<< 

1930 REM 

1940 COUNT=0:PLAY=l:GOSUB 290:GOSUB 750 
1950 COUNT=COUNT +1 :IF Z*<COUNT,1)=-FF* THE 
N 2050 

1960 F*=Z*(COUNT,1):S*=Z*«COUNT, 2> 

1970 GOSUB 1110:IF F*=S* THEN 1950 
1980 GETKEY A*:PLAY=2 

1990 COUNT=COUNT +1 :IF A*=’#’ OR Z*<COUNT,1 
)=■FF“ THEN 2050 

2000 F*=Z*(COUNT,1):S*=Z*(COUNT,2 > 

2010 GOSUB 1110*. IF F*=S* THEN 1990 
2020 GETKEY A*:PLAY=1 
2030 IF A*='#* THEN 2050 
2040 GOTO 1950 

2050 IF PLAY=1 THEN 1630:ELSE 1640 
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8 

Duello agli scacchi 



Una partita di scacchi al computer 

Per molti diverrà sorprendente che due persone potessero già gio¬ 
care a scacchi prima dell’avvento dei programmi scacchistici al com¬ 
puter. 

Un programma intelligente per giocare a scacchi già di per sé 
richiederebbe un intero libro, cosicché si è deciso di sviluppare un 
programma che potesse essere utile a quanti amano questo gioco 
e vogliono saperne di più. Anche i club di scacchi potrebbero tro¬ 
varlo d’una certa utilità. 

11 programma rimpiazza la scacchiera e i pezzi con un’immagine 
sullo schermo. 1 due giocatori possono comunicare le mosse al com¬ 
puter usando la notazione standard. Comunque, abbiamo intro¬ 
dotto qualche utile caratteristica, che risulti vantaggiosa rispetto 
alla scacchiera tradizionale con i pezzi da spostare con la mano. 

Il computer accetterà solo le mosse di pezzi del giusto colore, 
dalla casella occupata ad un’altra che possa essere effettivamente 
raggiunta da quel pezzo. I pezzi che vengono via via “presi” o “man¬ 
giati” sono rimossi dalla scacchiera. 
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Per altre violazioni del regolamento invece il controllo resta alle 
persone, come negli scacchi normali. 

Un’altra caratteristica interessante risiede nella possibilità di re¬ 
golare liberamente la scacchiera sin dall’inizio disponendo i pezzi 
per la soluzione di problemi o lo studio di varianti, e giochi che 
prevedano fino a 100 mosse possono essere immagazzinati e ana¬ 
lizzati passo a passo. Il gioco può continuare a partire da qualun¬ 
que stadio del gioco memorizzato oppure si può ricominciare da 
capo o da una mossa successiva. 


Elenco dei comandi e delle opzioni. 

1. Per sistemare i pezzi sulla scacchiera. Digita “S” quando ri¬ 
chiesto. Poi, a partire dalla sinistra in alto colloca ciascun pezzo 
usando una lettera. Per avanzare adopera la barra dello spazio. 

Pezzi bianchi: P=pedone, R=torre, N=cavallo, K = re, Q = regina, 

B = alfiere. 

Pezzi neri: le stesse lettere precedute dal tasto di “Shift”. 

I bianchi muovono verso l’alto. 

2. Per spostare un pezzo. “R” seguito dalla posizione occupata. 
Il gioco continua con la mossa dell’avversario. 

3. Per salvare il gioco. “S”. 

4. Per caricare il gioco. “L”, poi “Play”. Con ciò si carica il pri¬ 
mo file trovato. 

5. Per iniziare una nuova partita usa la lettera“Q”. 


10 REM ««« SCACCHI <> ISSI »»» 

20 REM 

30 GOSUB 230:FOR N«1 TO 100:Z*(N,1)*“00*:Z 

*<n,2 >«*00 *:next 

40 GOSUB 60:GOSUB 630:COUNT-1:GOSUB 150 
50 GOSUB 1330:GOTO 50 
60 GOSUB 630 

70 COLOR 0,3,0:COLOR 4,3,0:COLOR 1,2,4:GRA 
PHIC 0:GRAPHIC CLR 
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80 PRINT “ { CLR > { CUR DNJ { ~U } { ~C } t ~C } { ■'C } < 
"C>( A CH A Cì{'C>( A CH A C}{''C}rC}{''CH A C){ A C 
)I A CH A CH A I)‘ 

90 B*=" £--} {RVS ON> {RVS OFF> {RVS O 
N> {RVS OFF} {RVS ON> {RVS OFF} £RVS O 
N> (RVS OFF} £ ^ — } " 

100 A*=” { ~ - } {RVS ON> {RVS OFF> {RVS ON 
} £ RVS OFF} £ RVS ON} {RVS OFF} {RVS ON 
} {RVS OFF} {--}• 

110 FOR N=1 TO 4:PRINT A*:PRINT A*:PRINT B 
*: PRINT BCNEXT N 

120 PRINT " {'■J}£ A 'C}{-C}{~C}{''C}£~C}{~C}{ 

A 'C}{'‘C}£' A C}{' A C){ A 'C}£''C}£ A 'C}{ A 'C}{' A C}{ A 'C}{ A ‘K 

}“ 

130 PRINT * ABCDEFGH" 

140 FOR N~1 TO 8:N*=STR*(9-N>:CHAR 1,0,N*2 

,n*:next:return 

150 CHAR,5,22,'VUOI IMPOSTARE UNA 
PARTITA? ":GETICEYAJ:SOUNDMOO,10 
160 IF A$- "S THENGOSUB 1800:GOTO 180 
170 IF A*< >“N"THEN 150 

180 W*=-*:FOR N=1T029:W*=W*+" * :NEXT 

190 CHAR,5,22,W* 

200 GOSUB 670 

210 FOR N=100 TO 900 STEP 200:SOUND 1,N,10 

:next 

220 FOR N=1 TO 8:FOR M=1 TO 8: X*<N,M>=M*<N 
,M):NEXTM,N:RETURN 

230 FOR N=52 TO 56 STEP 2:POKE N,55:NEXT 
240 RESTORE:FOR N=0 TO 30:READ A:POKE 828+ 
N,a:NEXT:SYS 828 

250 POKE 65298,192:POKE 65299,<PEEK(65299) 
AND 3)OR 56 

260 FOR N=0 TO 255:READA:POKE 15104+N,A:NE 
XT 

270 DIN MS(8,8>:DIM Z*(100,2> 

280 DIM X*(8,8):VOL 8: RETURN 

290 DATA 160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

300 DATA 177,212,145,214,200,208,249,230,2 

13,230,215,202,16,242,96 

310 DATA 1,3,29,63,63,57,28,7 

320 DATA 0,128,56,252,252,156,56,224 

330 DATA 1,19,81,91,109,55,27,15 

340 DATA 128,200,138,218,182,236,216,240 
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350 DATA 1,1,7,14,28,28,14,7 

360 DATA 128,128,224,240,120,120,240,224 

370 DATA 0,0,3,7,15,31,9,3 

380 DATA 0,192,64,224,176,208,232,120 

390 DATA 0,0,25,25,25,31,9,3 

400 DATA 0,0,152,152,152,248,240,240 

410 DATA 7,7,4,31,16,127,64,127 

420 DATA 224,224,224,248,120,254,30,254 

430 DATA 0,0,0,0,0,3,7,7 

440 DATA 0,0,0,0,0,192,224,224 

450 DATA 5,4,3,15,8,31,16,31 

460 DATA 224,224,192,240,112,248,56,248 

470 DATA 253,227,221,191,191,187,222,231 

480 DATA 127,131,59,253,253,157,59,231 

490 DATA 237,147,85,91,109,173,219,239 

500 DATA 183,201,170,218,182,239,219,247 

510 DATA 253,249,247,238,220,220,238,247 

520 DATA 191,159,239,247,251,251,247,239 

530 DATA 255,254,249,247,239,223,233,243 

540 DATA 63,223,95,239,183,215,235,124 

550 DATA 255,230,217,217,217,223,236,239 

560 DATA 255,103,155,155,155,251,247,247 

570 DATA 247,247,228,223,144,127,64,127 

580 DATA 239,239,231,251,121,254,30,254 

590 DATA 255,255,255,255,252,251,247,247 

600 DATA 255,255,255,255,63,223,239,239 

610 DATA 245,250,243,239,232,239,208,223 

620 DATA 239,239,207,247,119,251,59,251 

630 FOR N=1 TO 8:F0R M=1 TO 8:M*(N,M)="0": 

NEXTM.N 

640 RESTORE 660:FOR N=1 TO 8:READ N*:M*(8 , 
n>=n*:m*<i,N)=chr*<asc(n»>+6 > 

650 m*<2,n> = "g*:m*(7,n) = *a“:next: return 
660 DATA B,C,D,E,F,D,C,B 
670 FOR N=1 TO 8 :FOR M=1 TO 8 
680 GOSUB 690:NEXTM,N:RETURN 

690 C*=M*<N,M):IF C*>*F* THEN C*=CHR*(ASC( 

c*)-6 ):r=i:else r=0 

700 A=N/2:B=M/2 

710 1F ( A= INT ( A > ) AND < B= INT ( B ) ) OR (AOINTI 
A))AND <B< >INT(B) ) THEN SQ=0:ELSE S8=l 
720 IF C*=-0-THEN 800 

730 IF SQ=R THEN BAS= 176: ELSE BAS=160 
740 IF C*='A'THEN B*=CHR*<BAS+14>+CHR*<BAS 
+ 15):ELSE B*=CHR*<BAS+10> +CHR*«BAS + l1) 
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750 IF CC='A*THEN TC-CHRC<BAS+12 M-CHRC<BAS 
+ 13»: GOTO 780 

760 CH«2*<ASC<CC>-65>:CH=10-CH 
770 TC-CHRC(BAS+CH)+CHRC(BAS+CH+1> 

780 IF R=ITHENTC="{RVS ON>*+ TC+*{RVS OFF}" 
;BC="{RVS ON)* +BC+"{RVS OFF}" 

790 COLOR 1,2,4:CHAR 1,M*2+1,N#2,TC:CHAR 1 
,M*2+1,N*2 +1,BC: RETURN 

800 IF SQ-1THENTC-" * : ELSE TC="{RVS ON} 
{RVS OFF}" 

810 BC-TC:GOTO 790 

820 COLOR1,2,4:FOR N-2T015:CHAR1,25,N,*{RV 

S ONl {RVS OFF}*:NEXT 

830 COLORI,3,2:FOR N-6T013:CHAR1,26,N,* 

■ :NEXT 

840 COLORI,16,4:CHAR1,26,3,"CHESS DUEL" 

850 COLORI,8,4:IF PLA-1THEN N$-BIANCO":ELSE NJ-"NER0" 

860 CHAR 1,29,6,N$:CHAR 1,27,8,'DA:-":CHAR i.27.11. A:-” 

870 Y=*8:GOSUB 890:F*»N* 

880 Y=-ll:GOSUB 890: S*-NS: RETURN 
890 N*=*" 

900 GETKEY AC:SOUND 1,500,10 

910 IF AC=*Q"THEN RUN 

920 IF AC="S*THEN GOSUB 1350 

930 IF AC= *L"THEN GOSUB 1460:GOTO 820 

940 IF AC= *R"THEN GOTO 1690 

950 IF AC-"4"AND COUNT>l THEN ZC<COUNT,l)= 
"FF":GOTO 1570 

960 IF AC< * A * ORAC >"H *THEN GOTO 900 

970 NC=AC:CHAR 1,34,Y,NC 

980 GETKEYAC:SOUND1,600,10 

990 IF AC<"1"ORAO *9"THEN GOTO 980 

1000 NC—NC+AC:CHAR1,34,Y,NC:RETURN 

1010 GOSUB 1060:MC(S1,S)-MC(F1,F>:MC<F1,F) 

="0":SOUND 1,750,30 

1020 RO=Sl:CL=S:GOSUB 1040 

1030 ro=fi:cl=f:gosub 1040:return 

1040 n=ro:m=cl:cc=mc(n,m> 

1050 GOSUB 690:return 
1060 F=ASC(LEFTC(FC,1))-64 
1070 F1—9-VAL(RIGHTC(FC,1)) 

1080 S-ASC(LEFTC(SC,1))-64 

1090 SI—9-VAL{RIGHTC(SC, 1) ) : RETURN 

1100 RC—CHRC(M + 64)+STRC(9-N): RETURN 

1110 GOSUB 1060:CHECK-1 :CC=MC<F1,F) :DC-MC( 
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S1,S) 

1120 IF C*=*0* THEN RETURN 

1130 IF <C*<*6* OR <D*>"F*ANDD*< > m 0‘ )J AND 
PLAY=2 THEN RETURN 

1140 IF<C*>’F*OR<D*<-G*ANDD*< >*0*>)ANDPLAY 
=1THEN RETURN 

1150 IF CS=“G“ANDS1<F1THEN RETURN 
1160 IF C*=“A"ANDS1>F1THEN RETURN 
1170 IF D*=’L’ORD*«=-F“THEN RETURN 
1180 IF C*="B’ORC*=*H*THEN 1940 
1190 IF C*=-C"ORC*="I-THEN 1950 
1200 IF C*="D*ORC*=*J'THEN 1990 
1210 IF C*=-E*ORC*=*K-THEN 2020 
1220 IF C*=* “F ■ ORC*= * L * THEN 2060 
1230 CHECK=0:IF C*<>"C*ANDC*<>•I *THEN GOTO 
2070:ELSE RETURN 

1240 w*«"*:for n*=itoi 2 :w*=w*+" *:next 

1250 CHAR,25,20,WS:GOSUB 820:GOSUB 1110 
1260 IF CHECK=*0THEN 1290 

1270 COLOR 1,9,4:CHAR 1,25,20,*INVALID MOV 

E” 

1280 SOUND1,600,25: SOUND1,400,25:SOUND1,20 
0,35:FOR Q=1TO200:NEXT:GOTO 1240 
1290 GOSUB 1010 

1300 Z*(COUNT,l)=F*:Z*(COUNT,2)=S* 

1310 COUNT=COUNT +1:IF COUNT=101 THEN COUNT 
= 1 

1320 RETURN 

1330 PLAY=l:GOSUB 1240 
1340 PLAY*2:GOSUB 1240:RETURN 
1350 Z®(COUNT,1) = *FF* : SOUND 1,200,20:SOUND 
1,400,20:SOUND 1,600,30 
1360 OPEN1,1,1,“CHESS" 

1370 FOR N=1T08:F0R M=1T08 

1380 PRINT#1,M*(N,M):PRINTB1,X*<N,M) 

1390 NEXTM,N 
1400 FOR N=ITO100 

1410 PRINTt»l,Z*(N, 1 ) :PRINT#1 ,Z*(N,2) 

1420 NEXT 

1430 PRINTH1,COUNT:PRINTttl 
1440 CLOSE1 

1450 SOUND1,200,20: SOUND1,400,20: SOUND1,60 
0,30:RETURN 

1460 SOUND1,200,20:SOUND1,400,20:SOUND1,60 
0,30 
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1470 OPEN 1,1,0,*CHESS* 

1480 FOR N=1T08:F0R M=1T08 

1490 INPUT#1,M*(N,M): INPUT#1,X*(N,M> 

1500 NEXTM,N 
1510 FOR N=1TO100 

1520 INPUT#1,Z*<N,1):INPUT#1,Z*(N,2) 

1530 NEXT 

1540 XNPUT#1,COUNT 
1550 CLOSE1 

1560 SOUND1,200,20: SOUND1,400,20: SOUND1,60 
0,30:GOSUB 70:GOTO 670 

1570 COUNT=0:PLAY=1:GOSUB 60:FOR N=1T08:FO 
r M=1T08:M*(N,M)=X*(N,M):nextm,n 
1580 GOSUB 670 

1590 COUNT=COUNT +11IF Z*<COUNT,1) = *FF* THE 
N 1680 

1600 F*=Z*(COUNT,1):S*=Z*(COUNT,2) 

1610 GOSUB 1010 
1620 GETKEYA*:PLAY=2 

1630 COUNT=COUNT+l:IF A*=*#* OR Z*<COUNT,l 
)=’FF* THEN 1680 

1640 F*=Z* t COUNT,1):S*=Z*< COUNT,2 ì 
1650 GOSUB 1010 

1660 getkeya*:play=i 

1670 IF A*="#*THEN1680:ELSE 1590 

1680 IF PLAY=1THEN1330:ELSE 1340 

1690 SOUND 1,200, 20 : SOUND1,400,20 : SOUND 1,60 

0,30 

1700 CHAR,30,22,"PEZZO:-" 

1710 GETKEYA*:SOUND1,400,10:IF A*<“A*ORA*> 
-H-THEN 1710: ELSE CHAR,34,24,A* 

1720 GETKEYB*:SOUND1,500,10:IF B*<■1•ORB*> 
■8*THEN 17201 ELSE CHAR,35,24,B* 

1730 F*»A*+B* 

1740 S*=F*:GOSUB 1060:M*<F1,F)«"0“ 

1750 CHAR,30,22,* * :CHAR,34,24,* 

1760 N=Fl:M«F:GOSUB 690 

1770 Z*(COUNT,1)=F*:Z*(COUNT,2)=S*:COUNT=C 
OUNT+l:IF COUNT=101 THEN COUNT=l 
1780 IF PLAY=1 THEN PLAY«2:GOSUB 1240 
1790 GOTO 50 

1800 FOR N=lT08:FOR M»1T08 

1810 SOUND1,200,10:SOUND1,400,10 

1820 T*~*CRVS ON}{' > U)( A IHRVS OFF>*:B*=*CR 

VS ONH A JH A KHRyS OFF>* 
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1830 COLORI,15,2:CHAR1,M*2+1,N*2,T*:CHARI, 
M*2+l,N*2+1,B* 

1840 GETKEYAS:IF A*=CHR*<13)ORA*=" “THENC* 

=>"0-:GOTO 1890 

1850 RESTOREI920:FLAG=0 

1860 FOR 8=1T012:READA,B* 

1870 IF ASC<a*>=athenc*=b*:flag=i 
1880 NEXT:IF FLAG-0THEN1840 
1890 M$IN,M)=CS 
1900 GOSUB 690:NEXTM,N 
1910 RETURN 

1920 DATA 80,A,82,B,78,C,66,D,81,E,75,F 
1930 DATA 208,G,210,H,206,I,194,J,209,K,20 
3,L 

1940 IF F1< >S1ANDF< >S THENRETURN:ELSE GOTO 
1230 

1950 TA=(F1-S1)*SGN(F1-S1):TB=<F-S)*SGN<F- 
S) 

1960 IF TA=2ANDTB=1THEN 1230 
1970 IF TA=1ANDTB=2THEN 1230 
1980 RETURN 

1990 XD=F-S:XD=SGNtXD)*XD 

2000 YD=F1-Sl:YD=SGN(YD>*YD 

2010 IF XDOYDTHEN RETURN ! ELSE GOTO 1230 

2020 XD=F-S:XD=SGN<XD)*XD 

2030 YD=F1-S1:YD=SGN(YD)*YD 

2040 IF XD»YDTHEN 1230 

2050 IF FIOSIANDFOS THEN RETURN 

2060 IF SGN(Fl-Sl)*(F1-S1)<>1 AND SGN<F-S) 

*<F-S)<>1 THENRETURN:ELSE GOTO 1230 

2070 ND*s0:MD-0 

2080 IF FI>S1THEN ND=-1 

2090 IF SI>F1THEN ND=1 

2100 IF F>STHEN MD=-1 

2110 IF S>FTHEN MD=1 

2120 CN=Fl:CM=F 

2130 CN=CN+ND:CM=CM+MD:IF CN=S1ANDCM=S THE 
N RETURN 

2140 IF M*<CN,CM)O*0-THENCHECK=l:RETURN 
2150 GOTO 2130 
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9 

Gustavus 



Un gioco di strategia per due 

Per quanto io ne sappia, noi siamo i primi a realizzare una ver¬ 
sione del “Semplice Simmons” per computer, un gioco che di soli¬ 
to si fa con carta e penna. 

Il Semplice Simmons o Sim fu inventato da un tipo che si chia¬ 
mava Gustavus Simmons. Noi abbiamo scelto di chiamare questa 
versione per computer Gustavus, poiché suona più importante del 
suo cugino di carta. 

Il gioco vuole che due giocatori si alternino a tracciare una retta 
tra due punti. Il primo che forma un triangolo del suo stesso colo¬ 
re, i cui punti posino su uno dei punti iniziali, è il perdente. Il truc¬ 
co consiste nel forzare l’avversario a disegnare per primo il trian¬ 
golo fatale. 

Il computer starà attento ai turni e alla formazione dei triangoli 
in modo da indicare il vincitore. 

Le linee si tracciano muovendo in senso orario o antiorario, usan¬ 
do i tasti dei cursori destro o sinistro. Quando vi trovate al primo 
punto da cui tracciare una riga, premete la barra spaziatrice. Un 
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“beep” segnalerà che il punto è valido per tracciare la riga. Quindi 
muoviamo il cursore al punto di arrivo, e otteniamo la retta quan¬ 
do premiamo il tasto dello spazio. Se provate a tracciare una riga 
scorretta, sarete avvertiti da un suono. Saranno necessari nuovi punti 
di partenza e di arrivo. 

Non esiste alcun vantaggio per chi gioca per primo. 11 gioco è 
assai adatto allo sviluppo dell’attenzione rivolta allo spazio! 


10 REM GUSTAVUS 

20 REM > > > > >DAVIS/ISSI/JIM< < 

30 COLOR0,1 :COLOR4,1:VOL8:GOSUB120 

40 GOSUB80:GOSUB140:GOSUB330:FORN=0TO999:N 

EXT:IFPL=1THENWI=2:ELSEWI=1 

50 IFWI=»1THENC=12:ELSEC=14 

60 COLOR 1,C,4:A$-"IL GI0CAT0RE"*STR$(WINK HA 

VINTOI":CH ARI, 14,24,A$ 

70 GETA*:IFA*=‘"THEN70:ELSE40 
80 GRAPHIC1,1: COLORI,2,7:CHAR1,16,0,‘GUSTA 
VUS‘: COLORI,8,6 

90 F0RN=1T06:LOCATEP<N,1)+4,P(N,2)-4:DRAWT 
0 +0,+8 

100 DRAWTO-8,+0:DRAWTO+0,-8 :drawto+8,+0:lo 
CATEP tN,1),P(N,2):NEXT:COLORl,12.4 

1 IO CHARi.O.lO/GIOCATORE 1 "COLORI,H.-1GHAR 1,32,10,"GIOCATORE 
2":RETURN 

120 DIMP(6,2) ,D<6,6) : RESTOREI30:FORNAIT06: 
READP< N,1>: READP< N, 2 > :NEXT: RETURN 
130 DATA160,150,220,120,220,55,160,25,100, 
55,100,120 

140 FORN=1T06:FORM=1T06:D < N,M)=0:NEXT:NEXT 
: RETURN 

150 le=0:ri=0:fi*0:geta*:ifa*=‘{Cur l>-the 
NLE=1:ELSE1FA*=‘{CUR RT>‘THENRI*1 
160 IFAS=- ‘THENFI=1 

170 J=JOY(l)ORJOY(2):1FJ=3THENRI=1:ELSEIFJ 
=7THENLE=1 

180 IFJ=128THENFI=l:RETURN:ELSERETURN 

190 PN=l:IFPL=lTHENCOLORl,12,4:ELSECOLOR1, 

14,4 

200 LOCATEP(PN,1)—5,P(PN,2 > +5:GOSUB380:GOS 
UBI50:IFFI=1THEN250 

210 LOCATEP(PN,1) r 5,P(PN,2)+5:GOSUB380:IFL 

E=1THENPN=PN-1 

220 IFRI=1THENPN=PN+1 
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230 IFPN=7THENPN=1:ELSEIFPN=0THENPN=6 
240 GOTO200 

250 SOUND1,800,10:RETURN 

260 LOCATEP (FR,1>-5,P(FR,2) +5:GOSUB380:LOC 
ATEP(DE,1)-5,P(DE,2)+5:GOSUB380 
270 RETURN 

280 GOSUB190:FR=PN:GOSUB190:DE=PN:GOSUB260 
290 IFFR=DEORD(FR,DE)<>0THENSOUND3,800,5:S 
OUND3,1010,5:GOTO280 

300 LOCATEP(FR,1),P(FR,2):DRAWTOP(DE,1),P< 
DE,2 >:D(DE,FR)=PL:D(FR,DE)=PL 
310 F0RN-1T06:IFD(DE,N>=PLANDD(N,FR)=PLTHE 
NDD=1:GOSUB350 
320 NEXT:RETURN 

330 dd= 0 :pl=i:gosub 280 :ifdd=ithenreturn:el 

SEPL=2:GOSUB280 

340 IFDD=1THENRETURN:ELSE330 

350 COLORI,2,7:LOCATEP(FR,1),P(FR,2) 

360 DRAWTOP(N,1),P(N,2>:DRAWTOP(DE,1),P(DE 
,2):DRAWTOP(FR,1),P(FR,2) 

370 SOUND3,999,20:RETURN 

380 IFPL=1THENGOSUB430:ELSEGOSUB440 

390 IFPL“1THENC=12:ELSEC=14 

400 COLORI,C,6:LOCATE+9,-9:DRAWTO+0,+8:DRA 
WTO-8, +01 DRAWTO+0,-8:DRAWTO+8,+0 
410 IFPL=1THENC=12:ELSEC=14 

420 COLORI,C,4:DRAWTO+0,+8:DRAWT0-8, +0Z DRA 
WTO+0,-8:DRAWTO+8,+0:LOCATE-9,+9:RETURN 
430 COLOR 1,2,5: CHAR 1,0, 11, * t ''HI {-'*}{''*> t 
>{"*><-'*> {"#>•: COLORI, 1:CHAR1,0, 11, * 

“: RETURN 

440 COLOR 1,2,5: CHAR 1,32, ll, ,, <-*>{-'*>{''*>{'‘ 
*><'■'*>{''#> CHAR0, 32,11," “ : RE 

TURN 


63 



10 

Derby ai dadi 



Agita! 

Questo è il primo di tre giochi con i dadi, seguito da Occhi di 
Serpe e Craps (gioco d’azzardo americano con i dadi). Tutti e tre 
utilizzano le stesse routine centrali ed è disponibile un menu per 
scegliere tra i tre giochi. Con ciò disporrete di una piacevole serie 
di giochi ai dadi e vi risparmierete un bel po’ di lavoro alla tastiera 
del computer. 

11 Derby ai Dadi è una corsa in cui il totale che risulta dal lancio 
dei dadi serve a determinare la distanza percorsa dal cavallo. Al 
gioco possono partecipare da due a quattro giocatori; sullo scher¬ 
mo vedrete la simpatica immagine di un bussolotto che serve ad 
agitare i dadi. 

Il tasto del fuoco per effettuare il tiro fà rotolare i dadi e li arre¬ 
sta quando viene premuto la seconda volta. Ciò vuol dire che cia¬ 
scun giocatore ha il controllo del periodo di agitazione dei dadi. 

I caratteri che rappresentano i cavalli correranno sullo schermo 
fino a quando uno non venga dichiarato vincitore. Fino all’ultimo 
lancio non si sa chi ha vinto e perciò esiste la possibilità di veri 
e propri arrivi al traguardo da “foto-finish”. 

II listato per i tre giochi si trova dopo le istruzioni per Craps. 
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11 

Occhi di serpe 



Scuoti! 

Questo è il secondo dei tre giochi ai dadi. Le istruzioni per lan¬ 
ciare i dadi sono le stesse per tutti e tre. 

Possono giocare due o quattro giocatori e le scommesse com¬ 
paiono sullo schermo. All’inizio si stabilisce l’ammontare del pre¬ 
mio, che può essere compreso tra $40 e $400. Il banco parte da $0. 

Quindi ogni giocatore lancia i dadi. Se si ottiene un doppio, il 
giocatore vince la somma del banco. Se invece il risultato è un “Occhi 
di serpe” (due volte uno), il giocatore vince il doppio della somma 
del banco, che ritorna a zero. 

Ad ogni giro il banco riceve $5 se la scommessa è al di sotto di 
$200 e $10 se al di sopra. 

Il gioco continua fino a che un giocatore raggiunge il punteggio 
della scommessa. 

Si potrebbe aumentare la somma disponibile per il banco per avere 
un “piatto” più grande! 

Il listato si trova dopo le istruzioni per Craps. 
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12 

Craps 



...e fai rotolare! 

Eccovi ora la versione del gioco americano di dadi che vedete 
sempre nei film di gangster o alla TV. 

Due o quattro giocatori possono fantasticare di trovarsi a Las 
Vegas, grazie al Commodore 16. 

All’inizio ciascun giocatore dispone di $100. Si stabilisce la scom¬ 
messa sul punteggio totale ottenuto da ciascun giocatore al suo tur¬ 
no. Allora viene il bello. 

Se al primo lancio si realizza un 7 o un 11, il tiro viene pagato. 
Se invece salta fuori un 2, o un 3 o un 12, il giro finisce e si perde 
la puntata. Ogni altro totale diventa il “punto”, cioè il valore di 
punteggio da raggiungere. 

Il giocatore continua a far rotolare i suoi dadi fino a raggiunge¬ 
re il punto. Se esce un 7 la mano passa al giocatore successivo. 

Se un giocatore perde tutto il suo denaro, esce fuori e il gioco 
continua fino a che non resta che un solo giocatore. 

Il listato che segue riguarda i programmi di tutti e tre i giochi 
di dadi e contiene il menù per la selezione del gioco. 


66 















IO REM <<<<<< DADI • ISSI/GREG/J1M »»» 

20 POKE52,55 :POKE54,55:P0KE56,55 :G0SUB2160 
:SYS882:VOL8:POKE214,0 

30 POKE65298, 192 :POKE65299, <PEEK(65299)AND 
3)OR56 

40 XX=RND<-TI> 

50 GOSUB210:GOSUB910 

60 SCNCLR:GOSUB620 

70 COLOR 1,6,3: CHAR,13.2,T > DERBY AI DADI" 

80 CHARI, 13,4,"2 > OCCHI DI SERPE": CHARI, 13.6,"3 > CRAPS" 

90 GETKEYA*:SOUND1,500,12 

100 ONVAL<A*)GOTO1060,1380,1670 

110 GOTO90 

120 COLOR 1,3,3:CHARI, 13,8,"PREMI LA BARRA DaLO SPAZIO" 

130 GETKEYA* 

140 IFA*< >■ *THEN130 

150 GOTO60 

160 POKE210,150:POKE211,01P0KE212,7:SYS828 
170 POKE210,134:POKE211,113:POKE212,12:SYS 
828:RETURN 

180 POKE210,134:POKE211,0:POKE212,12:SYS82 
8 

190 POKE210,150:POKE211,113:POKE212,7:SYS8 
28:RETURN 

200 REM <<<<<< RIDEFINISCE I CARATTERI >»»> 

210 RESTORE230:FORT=0TO79:READA:P0KE14616+ 
T,A:NEXT 

220 FORT=0TO415:READA:POKE14848+T,A:NEXT:R 
ETURN 

230 DATA0,0,0,24,24,0,0,0,3,3,0,0,0,0,192, 
192 

240 DAT A3,3,0,24,24,0,192,192,195,195,0,0, 
0,0,195,195 

250 DATA195,195,0,24,24,0,195,195,219,219, 
0,0,0,0,219,219 

260 DATA60,66,129,129,129,129,66,255,24,24 
,24,24,24,24,24,24 

270 DATA255,66,129,129,129,129,66,60,18,34 

,53,120,248,136,136, 136 

280 DATA0,0,0,0,0,1,3,2 

290 DATA0,0,0,127,128,0,255,0 

300 DATA0,0,0,248,24,41,203,74 

310 DATA0,0,0,248,24,40,200,72 

320 DATA2,2,2,2,2,2,2,2 

330 DATA74,74,74,74,74,74,74,82 
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340 DATA72,72,72,72,72,72,72,80 
350 DATA2,3,0,0,0,0,0,0 
360 DATA0,255,0,0,0,0,0,0 
370 DATA98,195,0,0,0,0,0,0 
380 DATA96,192,0,0,0,0,0,0 

390 DATAI,2,2,4,4,8,16,16,240,143,64,64,32 
,32,16,16 

400 DATA0,0,240,15,0,0,0,0,0,0,0,0,224,31, 

0,0 

410 DATA0,0,0,0,0,0,248,7,0,0,0,0,0,0,0,22 
4 

420 DATA32,32,32,64,64,64,128,128,8,8,4,4, 
4,2,2,2 

430 DATA31,0,0,0,0,0,0,0,0,240,8,8,8,4,4,4 
440 DATAI28,128,128,128,128,128,128,128,64 
,64,64,64,32,32,32,16 

450 DATA2,4,4,4,4,8,8,16,4,4,8,8,16,240,0, 
0 

460 DATAI6,16,8,8,4,4,2,1,16,32,32,64,64,1 
95,156,224 

470 DAT A0,0,0, 15, 112, 128,0,0,0,31,224,0,0, 

0 , 0,0 

480 DATA255,0,0,0,0,0,0,0,0,0,0,0,0,0,15,2 
40 

490 REM <««< DADI »»» 

500 DATA0,0,0,3,12,48,64,128,0,15,112,128, 

0 , 0 , 0,0 

510 DATA192,56,7,0,0,0,0,0,0,0,0,192,32,24 

, 6,1 

520 DATA224,152,134,65,64,64,32,32,0,0,0,1 
28,96,30,1,0 

530 DATA0,0,0,0,0,0,255,0,0,0,0,0,3,28,224 

,0 

540 DAT A3,13,49,193,2,2,2,2,32,16,16,16,8, 

8 , 8,8 

550 DAT A4,4,4,4,8,8,8,8,4,4,4,2,2,2,2, 1 
560 DATA16,16,16,32,32,32,32,32,1,1,1,1,0, 
0 , 0,0 

570 DATA0,0,0,0,128,128,128,128,64,64,64,6 
4,64,128,128,128 

580 DAT A128, 128,128,64,64,64,64,64,128,128 
,128,0,0,0,0,0 

590 DATA0,0,0,1,1,1,1,1,32,32,32,32,56,14, 
3,0 

600 DATA2,2,2,2,14,112,128,0 
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610 REM <<<<<< SCHERMO »»>> 

620 COLORO,l:COLOR4,1:SCNCLR:COLORI,2,7 
630 D1*=CHR*(96)+CHR*<97> +CHR*(98)+CHR*<97 
)+CHR*(99) 

640 D2*=CHR*(100)+CHR*(32> +CHR*(101)+CHR*( 
32)+CHR*(102) 

650 D3*=CHR*(103)+CHR*(104)+CHR*(105)+ CHR* 
(104)+CHR*(106) 

660 Ll*="* :FORT=107TO112:L1*=L1*+CHR*(T):N 
EXT 

670 L2*=CMR*(113)+CHR*(114)+* “+CHR*(115 

)+CHR*(116) 

680 L3*=CHR*<117)+CHR*(100)+ * "+CHR*(10 

0) 

690 L4*=CHR*(118)+CHR*<119)+" -+CHR*(126 

)+CHR*(120) 

700 L5*=-*:FORT=121T0125:L5*=L5*+CHR*(T>:n 
EXT 

710 U5*=CHR*(172)+CHR*(173)+ * *+CHR*(174) 

720 U6*=CHR*(32>+CHR*<175)+CHR*(32)+CHR*(1 
77)+ CHR*(176) 

730 U7*=CHR*(32)+CHR*(178)+CHR*<165)+CHR*( 
179)+CHR*(32> 

740 FORX=0TO38:CHAR1,X,13,“ - “ :NEXT 

750 COLORI,1:CHAR1,6,20,DI*:CHAR1,6,21,D2* 

:CHAR1,6,22,03* 

760 CHAR1,12,17,LI*:CHAR1,12,18,L2*:CHAR1, 
12,19,L3*:CHAR1,12,20,L4* 

770 CHAR1,12,21,L5*:COLORI,2,7 

780 SYS913:GOSUB180 

790 RETURN 

800 REM <<<<<< SONAGLIO »»» 

810 GOSUB180 
820 SYS913 

830 SOUND2,600,5 :SOUND2,0,0 
840 D1=INT(RND(1)*6)+1 
850 D2=INT(RND(1)*6)+1 
860 GETA*:IFA*<>- -THEN820 
870 SOUND1,400,25 

880 CH=D1+34 :POKE3919,CH:CH=D2+34:POKE3921 
, CH 

890 RETURN 

900 REM <<<<<< INIZIALIZZAZIONE »»» 

910 DIMS(7),P(4,3),0(4) : RETURN 
920 REM <<<<<< PULISCE »»» 
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930 CL=3112:F0RT=1T012:FORN=0TO39:POKECL+N 
,32:NEXT:CL=CL+40:NEXT 
940 RETURN 

950 REM «<«< GIOCATORI »»» 

960 GOSUB930.COLOR1,6,4CH ARI, 13,5,"GIOCATORI (2-4)?" 

970 GETKEYA* 

980 IFA*<“2“ORA# >“4"THEN970 

990 SOUND1,350,25 : SOUND1,200,25: SOUND1,100 
,25 

1000 GOSUB930 

1010 F0RN=1T04:P(N,1)=0:NEXT 
1020 PY=VAL(A*> 

1030 forn=itopy: 0 (n>=i:next 

1040 RETURN 

1050 REM ««« DICE DERBY »»» 

1060 GOSUB960 

1070 F0RN=1T04 

1080 P <N,1)=0:P(N,2)=3*N-2 

1090 NEXT:COLOR1,5,3:RESTORE1110 

1100 F0RY=1T012:READA:CHAR1,38,Y,CHR*(A):n 

EXT 

1110 DATA41,42,42,70,73,78,73,83,72,42,42, 
43 

1120 FORW=lTOPY:GOSUBl360:NEXT 
1130 FORW=lTOPY:COLORI,W+3,4 
1140 PI4-"GI0CAT0RE "tSTRJ(W)£HARl,22,14PLJ 
1150 SOUND1,300,40 
1160 GETKEYA* 

1170 IFA*< >” "THEN1160 

1180 GOSUB810 
1190 GOSUB160 
1200 FORD=lTO<Dl+D2> 

1210 S0UND2,400,1:IFP < W,1)>37THEN1220:ELSE 
GOSUB1350 

1220 P<W,l>=P(W,l)+l:XFP(W,l)>37THEM1240 

1230 SOUND2,200,1 :GOSUB1360 

1240 nextd:nextw 

1250 ho=0:hi=0:wi=0:forn=ito4 

1260 IFP(N,1)>37THENHO=P(N,1) 

1270 IFHO >HITHENHI=HO:WI=N 
1280 NEXT 

1290 IFWI=0THEN1130 
1300 GOSUB930 

1310 COLOR 1,4,6:PL$-"IL GIOCATORE"*STR$(WIP” HA VINTOI" 

1320 CHAR1,13,5,PL* 
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1330 FORT=lTOó:FORS=800TO500STEP-20: SOUND1 
,S,2:NEXT:NEXT 
1340 GOTO120 

1350 CHAR1,P(W,1>,P(W,2),* ':RETURN 

1360 COLORI, W + 3,4:CHAR1,P(W,1),P(W,2), CHR* 

(44) : RETURN 

1370 REM ««« OCCHI DI SERPE >»»> 

1380 GOSUB960 

1390 C0L0R1,7,4£HARI,13,5,' IMMETTI IL PUNTEGIO:'' 

1400 CHAR1,28, 5, “ ":INPUTLM 

1410 IFLM >400ORLM< 40THEN1400 

1420 UA=5:GOSUB930:IFLM>200THENUA=10 

1430 COLORI,8,5:CHAR1,5,0,"1":CHAR1,15,0,* 

2":CHAR1,25,0,"3■:CHAR1,35,0,*4* 

1440 COLORI ,4,6.* FORT = 1T07STEP6 : FORN=0TO38 : 

CHAR1,N,T,:NEXT:NEXT 

1450 KT=0 

1460 KT=KT+UA 

1470 PR=1 

1480 COLORI,8,6:FORN=lT04:CHS=STRS(P(N,1)) 
:CHAR1,N*10-6,3,CH*:NEXT 

M90 COLORIPR*3,1PLS-"IL G10CAT0RE"*STR$(PR):CHAR1,22,1-4,PLJ 
1500 GOSUB1530:IFP(PR,1)>LMTHEN1650 
1510 PR=PR+1:1FPR >PYTHEN1460 
1520 GOTO1480 
1530 GETKEYA* 

15-40 COLOR 1,9,6JJA$-"1L BANCO STA' A %STRJ(KTV 
":CHAR1,10,12,BAJ 

1550 GOSUB810:GOSUB160 
1560 IFD1=1ANDD2=1THENGOSUB1590 
1570 IFD1=D2ANDD1<>1THENGOSUB1620 
1580 RETURN 

1590 SOUND1,400,25: SOUND1,300,25 
1600 SOUND1,200,25:SOUND1,300,25 
1610 P(PR,1)=P(PR,1)+KT#2:KT=0:RETURN 
1620 SOUND2,600,25:SOUND2,400,50 
1630 SOUND2,600,25:SOUND2,200,50 
1640 P(PR,1)=P(PR,1)+KT:KT=0:RETURN 
1650 WI=PR:GOTO1300 

1660 REM >>>>>>>>>> CRAPS <<<<<<<<<<<<< 
1670 GOSUB960 

1630 COLORI,8,5:CHAR1,5,0,* 1 * :CHAR1,15,0, " 
2* :CHARl,25,0, *3* :CHAR1,35,0,*4" 

1690 COLOR1,4,6:FORT=1T07STEP6:FORN=0TO38: 
CHARl,N,T,NEXT:NEXT 
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1700 COLORI, 5,6 
1710 FORN=lT04 
1720 P<N,1)=100:NEXT 
1730 FORW=lTOPY:F0RN=1T04 

1740 COLORl,8,6:CH*=STR*(P(N,1) )+* * :CHAR 

1,N*10-7,3,CH*:NEXT 
1750 IFP(W,1)<1THEN1920 
1760 BT$= "IL GIOCATORE "♦STR}(W)*“ 

VINCE ":COLOR 1,6,5:CHAR 1,10,11 ,BTJ 

1770 CHAR1,24,11,“ ":INPUTBT 

1780 IFBT<1ORBT >P(W,1)THENSOUND1,300,15:GO 

TO1770 

1790 GOSUB810:GOSUB160 
1800 TT=D1+D2 

1810 IFTT=70RTT =11THEN2060 

1820 IFTT=20RTT=30RTT=12THEN2110 

1830 PT-TT:COLOR1,9,5:CHAR1,10,12,"LANCIA ANCORA..." 

1840 GETKEYA* 

1850 IFA*<>" -THEN1840 

1860 CHAR1,10,12, ■ * : REM 15 

SPACES 

1870 GOSUB810:GOSUB160 

1880 TT=D1+D2 

1890 IFTT=PTTHEN2060 

1900 IFTT=7THEN2110 

1910 GOTO1830 

1920 NEXTW 

1930 FG=0:CN=0 

1940 FORN=lTOPY 

1950 IFCN=1THEN1980 

1960 1FP1N,1)>0ANDFG=1THENCN=1 

1970 IFP(N,1)>0THENFG=1 

1980 NEXTN 

1990 IFCN=1THEN1730 

2000 WI=0 

2010 FORN=lTOPY 

2020 IFWI< >0THEN2040 

2030 XFP(N,1)>0THENWI=N 

2040 NEXTN 

2050 GOTO1300 

2060 fort=iitoi2:forn=0TO30:chari,n,t,“ “: 
NEXT:NEXT 

2070 SOUND1,300,25:S0UND2,200,25:S0UND2,10 
0,40 

2080 COLOR 1,3,*CHAR 1,10.11,"HAI VINTOI" 
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2090 FORT=lTO550:NEXT 

2100 P(W,1>=P<W,1)+BT:GOTO1920 

2110 fort=iitoi2:forn=0TO30:chari,n,t,■ ■: 

NEXT:NEXT 

2120 SOUND1,100,25:SOUND1,200,25:SOUND1,40 
0,40 

2130 COLORI,3,4.CHAR1,10,11,'HAI PERSO !":F0R T-l TO 550:NEXT 
2140 P<W,1)=P(W,1)-BT:GOTO1920 
2150 POKE65298,196 :POKE65299,209:STOP 
2160 RESTORE2190:FORN=0TO30:READA:P0KE882+ 
N,A:NEXT 

2170 FORN=0TO42:READA:POKE828+N,A:NEXT 
2180 FORN=0TO85:READA:POKE913+N,A:NEXT:RET 
URN 

2190 DAT A160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

2200 DAT A177,212,145,214,200,208,249,230,2 

13.230.215.202.16.242.96 

2210 DATA169,10,133,209,165,210,133,208,16 
2,6,164,212,165,211,145,208 

2220 DATAI 36,16,251,202,48,5,32,88,3,176,2 

39,96,24,165,208,105,40,133,208,165 

2230 DATA209,105,0,133,209,56,96 

2240 DAT A165,214,73,1,133,214,24,105,149,1 

33,208,169,14,133,209,162 

2250 DATA48,160,6,189,182,3,145,208,202,13 

6.16.247.138.48.5.32.88.3.176.237.96 

2260 DATA32,32,114,101,115,32,32,32,32,111 
,32,113,112,32 

2270 DATA32,108,109,32,32,110,32,32,106,32 
,32,32,107,32 

2280 DATA32, 104,32,32,32,105,32,32,99,100, 
101,102,103,32 

2290 DATA32,95,96,93,97,98,32 
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13 

Giochiamo a Pontoon? 



Una coppia può rovinare il banco 

In questa versione del famoso gioco di carte il banco dispone 
di $500 e ciascun giocatore di $100. Uno o due giocatori giocano 
contro il banco ed essi devono mirare a realizzare un totale di 21, 
cioè “Pontoon”. 

Per ciascun giocatore si distribuisce una carta scoperta e per il 
banco una coperta. Si può allora scommettere fino a tutto il piatto 
in gioco. Poi si distribuisce la carta successiva ed ogni giocatore 
dispone di varie opzioni quando arriva il suo turno. 

Può digitare “S”, quando il totale è di 16 o più per passare il gioco. 

Con una “T” può invece richiedere un’altra carta. 

Con una “B” può raddoppiare la posta, se una mano sembra 
assai buona. 

L’Asso è la carta che presenta i valori migliori per vincere, cioè 
1 oppure 11, a seconda delle altre carte. Qualora il punteggio risul¬ 
ti superiore a 21 il gioco passa ad altri. Quando entrambi i gioca- 
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tori avranno terminato, sarà il banco a giocare la sua mano per 
stabilire le vincite. Ricordate che i giocatori giocano contro il ban¬ 
co e non l’uno contro l’altro. 

Le vincite e le perdite si calcolano nel modo seguente: il punteg¬ 
gio più alto è il Pontoon, cioè 21 con Asso e Regina. Nell’ordine 
il secondo miglior punteggio è costituito da cinque carte il cui to¬ 
tale non superi 21. 11 terzo punteggio è dato da un Pontoon realiz¬ 
zato con qualsiasi altra combinazione di carte. Se non è dato nes¬ 
suno dei casi fin qui contemplati, il punteggio più alto totalizzato 
è semplicemente quello che vince. Quando il punteggio del banco 
è pari a quello di un giocatore, la vittoria è assegnata al banco. 

Il gioco continua fino alla rovina di ciascun giocatore oppure 
del banco. 

10 REM ** PONTOON * ANDY/J1M/GREG ** 

20 GOSUB2730:POKE52,55:POKE54,55:POKE56,55 
:GOSUB2750:SYS882:VOL8 

30 DIMPA(52):DIMAV<52):DIMPA*(5,13):DIMCC( 
3) 

40 DIMCX(4),CY(4>,PC«3,5),BC(5),NO(4), PL<2 
) , MO(2),P*(2) 

50 GOSUB2400:A=65298:POKEA,PEEK(A)AND251:P 

OKEA+1, (PEEK < A + l)AND3)OR56 

60 XX=RND(-TI):GOSUB1600 

70 MO(1)=100:MO <2)=100:MC=500 

80 CC(1)=20:CC(2)=33:CC(3)=6:PL(1)=1:PL(2) 

=i:gosubii20 

90 GOSUB 12.30 

100 SCNCLR:IFNP=1THENPL(2)=0 
110 IFPL(1)=0ANDPL(2 > =0THEN2630 
120 IFPL(1)=0THENBE <1)=0 
130 IFPL 12)“0THENBE < 2)=0 
140 GOSUB1660 

150 GOSUB1660:CX(1)=15:CX(2)=28:CY(1)=4:CY 

<2>»4:BX»2:BY=4 

160 GOSUB1810 

170 FORQ=lTONP 

180 IFPL(8> =0THEN210 

190 GOSUB1930 

200 GOSUB2450 

210 NEXT8 

220 cx=bx:cy=by:forq=itonc 

230 GOSUB1520:CY-CY+2:CX=CX+1:NEXT8 
240 GOSUB2200 
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250 FOR8=ITONP: IFPL(B)-0THEN280 
260 CY-CY<Q):CX=CX<S) 

270 CY-CY+2:CX-CX+1:GOSUB2340:GOSUB2450 
280 NEXT8 

290 CX—BX+1:C Y—BY+2:GOSUB1480 
300 GOSUB1520 !GOSUB2010 
310 REM ” PUNTEGGIO LOGICO " 

320 8-3:IFNP-2THEN340 

330 IFSC(1)>21THENPS(1)»*L*:GOTO500 

340 IFSC <1) >21ANDSC(2 > >21THENP*(1) = ■L■:P*( 

2 > = "L“:GOTO500 

350 FORW-1TONC 

360 CX-BX:CY=(BY-2)+W*2 

370 PC<3,W)-BC<W) 

380 GOSUB1760:GOSUB1310 
390 BX-BX+1 
400 NEXTW 
410 BX-CX:BY=CY 
420 FORW=1TONC 
430 PC(3,W)=BC(W >:NEXT 
440 Q=3:NO<3)“NC:GOSUB2450 
450 IFSC(3)<16THENGOSUB1480:ELSEGOTO500 
460 BX-BX+1:BY-BY+2:PC(3,NC)=BCINC):Q=3:CX 
=bx : c y-b y : w=nc : gosub i 760 : gosub 1310 
470 NO(3)=NC:6OSUB2450 
480 IFNC-5THEN500:ELSEGOTO450 
490 F=INT(RND<1)*2>+17:IFSC(3)<FTHENG0T046 
0 

500 8=1 

510 IFPL < Q)—0THEN640 

520 IFSC(8 >>21THENP*IQ) = ’L*:GOTO640 

530 IFSC(3)>21THENPS(Q)=*W“:GOTO640 

540 IFNC-5ANDN0< 8 >-5THENP* < 8) = *L * :GOTO640 

550 IFNO(8)-5THENP* 18) = -W* :6OTO640 

560 IFNC«5THENP*(8)« - L - :GOTO640 

570 IFSC(3) >SC <8> THENPSIB) = *L":GOTO640 

580 IFSC(3)-21ANDNC-2THENP*(8)= "L*:GOTO640 

590 IFNO < 8 > =5 ANDNC < 5THENP* < 8 > =’W■:GOTO640 

600 IFSC <8)=21ANDNO <8)-2THENP*(8)= * W": GOTO 

640 

610 IFSC (8) >SC(3)THENP*<Q)=-W:GOTO640 
620 IFSC(8)-SC < 3)THENP* < 8) = "L- :GOTO640 
630 IFSC(3J>SC(8>THENP*(8)=-L-:GOTO640 
640 IFNP—2AND8—1THEN8—2:G0T0510 
650 IFNP-1THEN700 
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660 XFPS<1>=*L’ANDPS<2)=*L-THEN860 
670 IFPS(1)=•W■ANDPS(2)=■W■THEN820 
680 IFPS <1) = * W * ANDPS(2 > = * L"THEN930 
690 IFPS < 1 > = * L * ANDPS < 2)= * W•THEN980 
700 IFPS <1) = “W"THEN740 
710 I FPS < 1 > = ** L “ THEN780 
720 END 

730 REM "* IL GIOCATORE VINCE ** 

740 MC-MC-BEI1 ):MCR I I-MOI 1 )*BE( 1 )"2:GOSUB2670 GOSUB2550 
730 GOSUB2550 

7Ó0 GOSUB2550:X-0:Y-23:GOSUB1080:PRINT "(REDIIL GIOCATORE HA 
VÌNTO ;:GOSUB2560:GOTO90 
770 REM "* BANK WIN ** 

780 MC-MOBEI I ):GOSUB2550:GOSUB2700 
790 X'0:Y-23<jOSUBI080J 3 RINT"(RBD)IL BANCO HA VINTO';: 
GOSUB2560:!FMO( ! )< 1THENPLI1 1=0 
800 GOTO90 

810 REM ” VINCONO ENTRAMBI "* 

820 MCKI )-M0( I )*BE( I )"2:MO(2)-MO(2)*BE(2)*2: GOSUB2670: 
MC-MC-BE(1)-BE(2) 

830 IFMC<1THEN1030 

840 GOSUB2360: GOTO90 

830 REM " PERDONO ENTRAMBI ** 

860 MC-MC-BEII )-BE(2):GOSUB2550:GOSUB2700:IFMO< 1 )< 1THENPLI 1 )-0 
870 IFMO(2)<1THENPL(2)-0 

880 IFPUII-0ANDPU2)- 1THEN MEJ'IREDIIL GIOCATORE 2 HA PERSO" 
890 IFPLII )-0ANDPL(2)-lTHEN MEJ' IREDIIL GIOCATORE 1 HA PERSO" 
900 IFPU 1 )-0ANDPL(2)-iTHEN MEJ'IREDIENTRAMBI I GIOCATORI 
HANNO PERSO" 

910 X-0:Y:23:GOSUB 1080:PRINTMES$;.OOSUB2560COT090 
920 REM ” IL GIOCATORE 1 HA VINTO ” 

930 MC«=HC + BE<2):MO<1)«MO<1>*BE<1)#2:MC=MC- 

BE(1>:GOSUB2670 

940 IFMO(2)<1THENPL <2)*0 

950 IFMC<1THEN1030 

960 GOSUB2550JC-0:Y-23C5OSUB1080:PRINT"(R£D}IL GIOCATORE 1 HA 

VINTO ";:GOSUB25601X)TO90 

970 REM ” IL GIOCATORE 2 HA VINTO ** 

980 HC-MC+BEI1):MO12)«MO<2>+ BE <2)*2:MC=MC- 

BE(2):GOSUB2670 

990 IFMO<D<1THENPL< 1 >-0 

1000 IFMC<1THEN1030 

1010 GOSUB2550: X-0:Y:23:GOSUBI080:PRINT "(REDIIL GIOCATORE 2 HA 
VINTO ";:GOSUB2560:GOTO90 
1020 REM * * BANCAROTTA * " 
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1030 GOSUB2550: X-0:Y:23:COSUB1080 

10-10 PRINT'IREDJBEN FATTO, HAI RIPULITO IL BANCO";: GOSUB2670: 

GOSUB2670COSUB2560 

1050 SCNCLR:PRINT"GIOCATORE l:' MOO); 

1060 1FNP-2THEN PRINT'PLAYER 2:”MO(2); 

1070 GOSUB2560)GOSUB2560:GOTO60 

1080 POKE208,X:POKE209,Y:SYS828: RETURN 

1090 FORN-1T04: FORT-1T04:PRINTPA*(N,T >:NEX 

t:next 

1100 STOP 

Ilio REM * ■ GENERA IL MAZZO ’ * 

1120 REM * * MOVIMENTO * * 

1130 FORCA-ITO13 

1140 PA*<SU,CA)»CHR®(SU+96) 

1150 IFCA<11ANDCA>1THENPA*(SU,CA)-PA*(SU,C 
A)+CHR*<32)+CHR*(CA+48) 

1160 IFCA—1THENPA®(SU,CA1 —PA®(SU,CA) + “ A" 
1170 XFCA—11THENPA® <SU,CA)—PA® <SU,CA) ♦ * 3" 
1180 IFCA—10THENPA®(SU,CA)—PA®(SU,CA)+*10" 
1190 IFCA—12THENPA*(SU,CA)—PA® < SU,CA> + " Q* 
1200 IFCA—13THENPA®(SU,CA)—PA®(SU,CA) + " K* 
1210 NEXTCNEXT:RETURN 
1220 REM ** SHUFFLE ** 

1230 FORN-ito52:pa<n)»n:av<n>=i:next 
1240 FORA—1TO30 

1250 Nl-INT(RND<1>*51> +1:N2-INT(RND<1)*51> 
♦ 1 

1260 CC-PA(Nl) 

1270 PAINI)—PA C N2 > 

1280 PA < N2)—CC 

1290 NEXT:RETURN 

1300 REM ' ’ DISEGNA LE CARTE * * 

1310 x-cx-i: y-cy:gosubi 080 
1320 COLORI,l:PRINTCHR«(lll>; 

1330 PR1NT•{#Y > < *Y > < #Y >{*Y >{#Y >“!CHR®(112) 

:cl-i:se-0 

1340 Y-CY + l:GOSUB1080:PRINTCHR®(165> j 

1350 ZI®—LEFT®(PA® <SU,CA),1):IFZ1V-CHR*(98 

)ORZI*—CHR®(100)THENCL—3:SE-2 

1360 COLORI,CL,SE :PRINTRIGHT®(PA®(SU,CA),2 

) S 

1370 PRINTLEFT* < PA® < SU,CA > ,1) J : COLORI,1 :PR 
INT* *|CHR*(167) 

1380 Y-CY+2:GOSUB1080:PRINTCHR*(165> 5 :N3®= 
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1390 PRINTN3*;:PRINTCHR*<167) 

1400 y=cy+3:gosubi080:printchr*<165);■ ■; 

1410 COLORl,CL,SE:PRINTLEFT*(PA*<SU,CA),1) 
COLORI, l.-PRINT- “ J CHR* < 167 ) 

1420 Y=CY+4:GOSUB1080:PRINTCHR*(165);N3*IC 
HR*<167) 

1430 Y=CY+5:GOSUB1080:SYS828:PR1NTCHR*(165 
) ; ' •; 

1440 COLORl,CL,SE:PRINTRIGHT*<PA*(SU,CA>,2 
); * *j: colori, ì: printchr*<167) 

1450 Y=CY+6:GOSUB1080:PRINTCHR*<108); 

1460 PRINT" <*PX*PX*PX*PX*P) " ! :PRINTCHR 
«<186) 

1470 SOUND1,200,2:RETURN 

1480 C=INT(RND<1>#51>+1 

1490 IFAV(C)=0THEN1480 

1500 AV < C)=0:NC-NC +1:BC < NC)=C: RETURN 

1510 REM ■ ’ DISEGNA IL DORSO DELLE CARTE * * 

1520 x=cx-i: y=cy:gosubi 080 :printchr«<iii)ì 

1530 PRINT ■<*YX*YX*YX*YX*YJ ,, S : PRINTCHR 
*(112) 

1540 CB*= S CHR* <165)+‘{*+X*+X*+X*+X*+>* + 
CHR«(167) 

1550 FORN=lT05;Y=CY+N:GOSUB1080:PRINTCB*:N 
EXT 

1560 Y=CY+6:GOSUB1080:PRINTCHR*<108)| 

1570 PRINT "{*PX*PX*PX*PX*P>“! CHR* <1861 
1580 SOUND1,300,2:RETURN 
1590 REM * * NUMERO DEI GIOCATORI * * 

1600 SCNCLR:COLOR-4,2 

1610 X-16:Y-8:GOSUB 1080:PRINT"(RED)PONTOON'' 

1620 X-12:Y-MGOSUB1080:INPUT '(LT BLUÌ1 0 2 GIOCATORI'jNP 
1630 IFNP< >1ANDNP< >2THEN1620 
1640 FORQ=1TONP:PL < 8)-1 :NEXT: RETURN 
1650 REM * ■ DISTRIBUZIONE * * 

1660 FOR8-1TONP 

1670 C1=INT < RND(1)#51)+1 

1680 IFAV(CI)“0THEN1670 

1690 av<ci)-0:pc<q,1)=ci:next 

1700 PC(S,1)=C1 

1710 C1=INT(RND<1)*51)+1 

1720 IFAV <C1)“0THEN1710 

1730 AV(C1)o0:BC<1)=C1 

1740 N0<1)-1:N0(2)>1:NC»1:RETURN 

1750 REM * ' DECODIFICA LE CARTE * * 
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1760 SI-PC(Q.W).-CT-X:CD-1 

1770 SX-SI:SI-SI-SM3:IFSI>0THENCD-CD*lGOTO1770 
1780 SU-CD:CA:-SX:BB(Q)-CD:DD(Q)-SX:REnJRN 
1790 GOTO 1770 
1800 REM SCREEN ” 

1810 X-0:Y-2:GOSUB1080:PRINT'"(BLU)BANCO", "GIOCATORE 1". 

1820 IFNP-2THEN PRINT "GIOCATORE 2"' 

1830 X= 13:Y-20:GOSUB 1080J 3 RINT"'(BLK)OFFERTA:"' 

1840 IFNP-2TH£NX-26:Y-20:GOSUB1080:PRINT'OFFERTA:'" 

1850 X=0:Y=21 :GOSUB1080:PRINT■{GRN}\* :X=13 
:Y=21:GOSUB1080:PRINT"\" 

1860 X=26:Y=21:GOSUB1080!PRINT*\* 

1870 POKE208,0:POtCE209,20:SYS828:PRINT"(OR}RlSERVA"" 

1880 POKE208,0:POKE209,19:SYS828:PRINT"(LT BLUJTOTALE"' 

1890 POKE208,13i«KE209,19:SyS828:PRINT'TOTALE' 

1900 1FNP-2THENPOKE208,26:POKE209,19:SyS828:PRINT"TOTALE"' 
1910 RETURN 

1920 REM <<<<<< DISEGNA LA MANO >>»» 

1930 CX=CX(8>:CY=CY<8> 

1940 FORW=lTONO(8) 

1950 GOSUB1760 
1960 GOSUB1310 
1970 cy=cy+2:cx=cx+i:nextw 

1980 POKE208,CC(8)-5:POKE209,21 :SYS828:PRI 
NTMO(Q) 

1990 RETURN 

2000 REM * ' * PASSO * ■ * 

2010 FOR8=1TONP: IFPL < 8)=0THEN2130 

2020 CX (8) =CX <8> -*-2: GOSUB2550 

2030 X=0:Y=23:GOSUB1080:PRINT"tREDJPLAYER 

"8" {CUR RTMRVS ON>S{RVS OFF1TICK {RVS ON> 

T{RVS OFFJWIST {RVS ON>8{RVS OFFJUIT {RVS 

ON}B{RVS OFFJUY*5 

2040 GETAS:IFA*="S"ORA*="T"ORA*="8*ORA*="B 

"THEN2050:ELSE2040 

2050 CX=CX(8):CY=CY(8)+(2*NO(8)) 

2060 IFA*="B"THEN2580 
2070 IFA*="8’THENEND 

2080 IFA*-"S"ANDSC< 8) >15THENGOSUB2140:CX=C 
X+l:GOTO2130 

2090 IFA*= "T"THENGOSUB2150: CX—CX + 1 : CX (8) =C 
X <8> +1 

2100 GOSUB2450 

2110 IFSC(8)>21THENX=CC(8):Y=19:GOSUBI080: 
PRINT"{REDJBUST":GOTO2130 
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2120 IFNO(Q)<>5THEN2040 
2130 NEXT8:RETURN 

2140 GOSUB2450:X=CC(Q):Y=19:GOSUB1080:PRIN 
T* *1 :PRINT*{CUR L > <CUR LXCUR L>*SC<8)J 
: RETURN 

2150 C«INT(RND(1)*51)+1 
2160 IFAV(C)=0THEN2150 
2170 AVMC)°0:NO(S)-NO<£I> +1 

2180 PC(a,NO(8))=C:W=NQ(Q):GOSUB1760:GOSUB 
1310:RETURN 

2190 REM ** PLACE BETS ** 

2200 POKE208,1:POKE209,21:SYS828:PRINTMC; : 
FOR8=lTONP 

2210 IFPL(8)“0THEN2310 

2220 POKE208,0:POKE209,23:SYS828:FORN=1T03 

8:print* -i:next 

2230 POKE208,8:POKE209,23:SYS828:PRINY"(PUR)IL GIOCATORE ";Q; HA 
VINTO (GRN)(\) '; 

2240 INPUTBE(Q> : IFBE 18)<1THEN2220 
2250 1FBE 18)>MO(8> THEN2220 

2260 POKE208,CC < 8) :POKE209,20:SYS828:PRINT 
BE ( 8 > 

2270 POKE208,CC(8>:POKE209,21:SYS828:PRINT 

■ m 

2280 MO < 8 > =MO < 8)-BE < 8 > 

2290 POKE208,CC(8)-4:POKE209,21:SYS828:PRI 
NT" 

2300 POKE208,CC(8 >-5:POKE209,21:SYS828:PRI 
NTMO(Q) 

2310 NEXTS 
2320 RETURN 

2330 REM REM <<<<<< UN'ALTRA CARTA»»» 

2340 C=INT<RND<1)*51)+1 
2350 IFAV(C)=0THEN2340 
2360 PC<8,NO<8)+1)=C:AV(C)«0 
2370 NO<Q>=NO(8)+1 

2380 W“NO < 8):GOSUB1760:GOSUB1310 
2390 RETURN 

2400 RESTORE2410:FORT=0TO23: READA:POKE1486 
4 + T,A:NEXT: RETURN 

2410 DATAI6,56,124,254,124,56,16,0 
2420 DATA56,56,254,254,254,16,56,0 
2430 DATA108,254,254,254,124,56,16,0 
2440 REM ** PLAYERS SCORE ** 

2450 SC(8)=0:AC=0:FORZ=1TONO<8):W=Z:COLORl 
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2460 GOSUB1760:FC*=RIGHT* < PA* < SU,CA >,2 > 

2470 IFFC*«* 8*ORFC*=* J*ORFC*=* K*ORFC*=* 

10*THENSC<8>=SC(S)+ 10 

2480 IFFC*=* A•THENAC=AC +1 :GOTO2500 

2490 SC(8>=SC(Q)+VAL<RIGHT*<PA*<SU,CA>,1)) 

2500 NEXTZ: IFAO0THENGOSUB2520 

2510 X—CC(8):Y*19:GOSUB10801PRINT“ ■:GOS 

UBI080:PRINTSC(8) : RETURN 

2520 FORR=1TOAC 

2530 IFSC(8>♦ 11>21THENSC(8)=SC < 8 )+1:ELSESC 

(8) “SC (8) -*-11 

2540 NEXT:GOTO2510 

2550 X=0:Y=23:GOSUB1080:F0RA=1T038:PRINT * 

■I:NEXT:RETURN 

2560 FORT=1TO3000:NEXT:RETURN 
2570 REM ** BUY *♦ 

2580 IFMO(8)< BE < 8 > THEN2100 

2590 BE(81>BE<8)*2:MO(8)=MO(8)-BE(Q)/2:G0S 

UB2150:X»CC(8):Y=20:GOSUB1080 

2600 PRINT*1GRN> *:GOSUB1080:PRINTBE<8): 

X=X-5:Y=21:GOSUB1080:PRINT* * :GOSUB1080 

2610 PRINTMO(8):CX=CX-H :CX(8)=CX(8)+l:GOTO 

2070 

2620 REM ««« FINE DEL GIOCO »»» 

2630 GOSUB250:X-0:Y-23: GOSUB 1080:PRINT"(PUR)I GIOCATORI HANNO 
PERSO TUTTI I SOLDI" 

2640 FORS-100TO500STEP5 

2650 SOUND1 ,S,2-NEXT<ìOSUB2560<>OTO60 

2660 REM <<<<<< SUONO DELLA VITTORIA >>»» 

2670 FORO=300TO100STEP-10 
2680 S0UND1,0,10:NEXT:RETURN 
2690 REM ** LOSE SOUND ♦♦ 

2700 SOUND1,200,20 

2710 SOUND1,0,10 

2720 SOUND2,500,40:RETURN 

2730 RESTORE2740:FORN=0TO8:READA:POKE828 + N 
,A:NEXT: RETURN 

2740 DATA24,166,209,164,208,32,240,255,96 
2750 RESTORE2760:FORN=0TO30:READA:POKE882+ 

n,a:next:return 

2760 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

2770 DATAI77,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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14 

Alto o basso 



Una coppia non vale niente 

Questa è la versione per computer di un gioco di carte che com¬ 
pare in un programma televisivo assai noto. 

Ciascun giocatore parte con $150 e undici carte vengono distri- 
bite coperte. 

La prima viene quindi scoperta e si chiede di scommettere. La 
scommessa può arrivare fino al massimo della somma di cui il gio¬ 
catore dispone. Fatta la scommessa, si chiede se la carta successiva 
sarà più alta o più bassa. Se la risposta è giusta si paga la scom¬ 
messa. Se la risposta è sbagliata, oppure la carta ha lo stesso valo¬ 
re della precedente, si perde la puntata. Il gioco continua fino a 
che tutte le carte siano state scoperte, dopo di che si può ricomin¬ 
ciare. 
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10 REM «< ALTO 0 BASSO ' ANDY/J1M/GREG »> 

20 

GOSUB1910:POKE52.55:POKE54,55:POKE56,55:GOSUB 1930:SYS882:VOL8 
30 DI MPA( 52 ),A V(52 ),PA$( 5,13 )3C( 11 ) 

40 DIMCXU I ),CY( 11 ) 

50 HNO:GA$-'ALTO-BASSO':POKE65298,192:POKE65299 t PEE£(65299) 
AND3IOR56 
60 COLORO,2 
70 GOSUB1370 

80 SCNCLR:COLORO,2:COLOR4,2:AJ-'' ' 

90 X-13:Y-I7:GOSUB370:PRINT"(RED)ALTO-BASSO 
100 GOSUB390 
110 GOSUB500 
120 GOSUB870 

130 X-10:Y-18:GOSUB370:PRINT "(BLUJPOSTA." 

140 Y-19:GOSUB370:PR1NT"(OR)TOTALE:" 

150 X-26:Y-17COSUB370J J R1NT "{LT BLU1RECORD" 

160 TT=150 
170 BE=0 
180 GOSUB1030 
190 GOSUB1140 
200 C=1 

210 CX=CX(C>:CY=CY(C) 

220 GOSUB1030 

230 IFC=11THEN1450 

240 PC(1,1)=BC(C):Q=1:W=1 

250 GOSUB970:GOSUB580 

260 GOSUB1080 

270 GOSUB1210 

280 GOSUB1030 

290 CX=CX(C+l):CY=CY(C+l> 

300 PC(1,1)=BCIC+1):CR=CA 
310 Q=l:W=l:GOSUB970 
320 GOSUB580 

330 IFCA >CRANDA*=-H *THEN1330:G0T0210 
340 IFCA< CRANDA*=*L’THEN1330:GOT0210 
350 GOTO1280 
360 GOTO210 

370 POKE208,X:POKE209,Y:SYS828: RETURN 
380 REM ” GENERA IL MAZZO " 

390 FORSU=1T04 

400 FORCA=lTOl3 

410 PA*(SU,CA)=CHR*<SU+96) 

420 IFCA<11ANDCA>1THENPA*<SU,CA)=PA*(SU,CA 
)+CHRS < 32 >+CHRS<CA+48> 
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430 IFCA=1THENPA*(SU,CA)=PA*(SU,CA)+* A* 
440 IFCA=11THENPA*(SU,CA)«PA*(SU,CA>+* J* 
450 IFCA=10THENPA* ( SU,CA)=PA* ( SU,CA)+ " 10 * 
460 IFCA=12THENPA*(SU,CA)=PA* <SU,CA ) + " Q* 
470 IFCA=13THENPA*(SU,CA)=PA*(SU,CA)+ * K* 
480 NEXT:NEXT:RETURN 
490 REM ««« MESCOLA LE CARTE »»» 

500 FORN=1T052(PA(N > =N(AV(N)=1(NEXT 
510 FORA= 1 TO30 

520 N1=INT(RND(1)*51)+15N2=INT(RND(1)*51> + 
1 

530 CC=PA(NI) 

540 PA < NI)=PA(N2) 

550 PA < N2 > =CC 

560 NEXT:RETURN 

570 REM ««« DISEGNA LA CARTA»»» 

580 X=CX-1(Y=CY(GOSUB370 
590 COLORI,l:PRINTCHR*(111); 

600 PRINT"{*Y>C*Y>{*Y>C*Y>{*Y>*5CHR*(112): 
CL=1:SE=0 

610 Y=CY+1(GOSUB370(PRINTCHR*(165)I 

620 Z1*=LEFT*(PA*(SU,CA),1):IFZ1*=CHR*(98) 

ORZ1*=CHR* <100)THENCL=3:SE=2 

630 COLORI,CL,SE:PR1NTRIGHT*(PA*(SU,CA),2) 

! 

640 PRINTLEFT*(PA*(SU,CA),1)?(COLORI,1:PRI 
NT* *;CHR*(167> 

650 Y=CY+2(GOSUB370(PRINTCHR*(165)i(N3*=* 

m 

660 PRINTN3»;(PRINTCHR*t167) 

670 Y=CY + 3(GOSUB370)PRINTCHR*(165)5 * *5 

680 COLORI,CL,SE :PRINTLEFT*(PA*(SU,CA),1)5 
: COLORI,1 :PRINT* “5 CHR* <167) 

690 Y=CY+4(GOSUB370:PRINTCHR*(165)5N3*SCHR 
*(167) 

700 Y=CY+5(GOSUB370(SYS828(PRINTCHR*(165)5 

■ m m 

9 

710 COLOR1,CL,SE :PRINTRIGHT*(PA*(SU,CA) ,2) 
5" "5(COLORI,l:PRINTCHR*(167) 

720 Y=CY+6(GOSUB370:PRINTCHR*(108)5 
730 PRINT‘(*PH*P){#P>{*P){*P)*i (PRINTCHR* 
(186) 

740 SOUND1,200,2(RETURN 
750 C=INT(RND(1)*51>+1 
760 IFAV(C)=0THEN750 
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770 AV < C > =0:NC=NC +1 : BC < NC)*C: RETURN 
780 REM ««« RIDISEGNA LE CARTE »»» 

790 x«cx-i: y=cy:gosub370:printchr*<hi) ì 

800 PRINT*C*Y><*Y><*Y>{*Y>{*Y>*;:PRINTCHR* 
< 112 ) 

810 CB*=CHR*<165)+*<*+>{*♦>{*+>t#+>C*+>’+C 
HR*<167) 

820 FORNAITOSIY-CY+N:GOSU8370:PRINTCB*:NEX 
T 

830 Y=“CY+6: 6OSUB370: PRINTCHR* < 108) i 
840 PRINT*C*P>{*PM*P>t*PM*P>*SCHR*( 186) 
850 SOUND1,300,2:RETURN 
860 REM <<<<<< DISEGNA LE CARTE »»» 

870 RESTORE930:F0RA=1T011 
880 REABCX < A) ,C Y(A) 

890 CX=CX<A):CY=CY(A) 

900 GOSUB790 
910 NEXTA 
920 RETURN 

930 DATAI,0,9,0,17,0,25,0,33,0 
940 DATAI,8,9,8,17,8,25,8,33,8 
950 DATAI,16 

960 REM <<<<<< DECODIFICA LE CARTE »»» 

970 SI=PC<Q,W):CT=l:CD=l 

980 SX=SI:SI=SI-13:IFSI>0THENCD=CD+1:G0T09 
80 

990 su=cd:ca=sx:return 

1000 GOTO980 
1010 RETURN 

1020 REM <<<<<< SCRIVE IL TOTALE DELLE OFFERTE »»» 

1030 COLOR1,6,2:X=16:Y=18:GOSUB370:PRINT■ 

* :GOSUB370:PRINTBE| 

1040 y-19:gosub370:print* *:gosub370:p 

RINTTT 

1050 x=27 :y=is:gosub370:print- *:gosub 

370:PRINTH1 

1060 RETURN 

1070 REM <<<<<< IMPOSTA LE OFFERTE »»» 

1080 X-H:Y-22:GOSUB370:PRINT"(RED)TU HAI \";TT 

1090 Y-23:GOSUB370:INPUT , '(BLK)0UAL E' LA TUA OFFERTA ' ;BE 

1100 IFBE< 1 ORBE>TTTHEN 1080 

1110 TT-TT -BE.GOSUB 1030 

1120 RETURN 

1130 REM <<<<<< GENERA LE CARTE »»» 

1 HO FORA-lTOl 1 
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1150 C-INT(RND(1)*5I)*1 
1160 IFAV(C)*0THEN150 
1170 BCIA)-PA(C) 

1180 AV(C)-0 
1190 NEXTA-RETURN 

1200 REM <<<<<< PIU' BASSO E PIU' ALTO »»» 

1210 X= 14:Y=23:GOSUB370:FORB= 1 T025:PRINT '";:NEXTB 
1220 X-14:Y-22:GOSUB370:FORA- 1T020:PRINT '";:NEXTA 
1230 X-14:Y-23:GOSUB370:PRINT'(BRN}PIU' ALTO/PIU' BASSO'' 

1240 GETAJ 

1250 IFA$<> "H "ANDAjo'L'THEN 1240 
1260 RETURN 

1270 REM <<<<<< PERDITA »»» 

1280 S0UND1,300,20:SOUND1,0,10 
1290 S0UND1,500,40 
1300 IFTT<1 TRENI490 
1310 C-O :GOT0210 
1320 REM ««« VINCITA »»» 

1330 FORS-500T0300STEP-10 
1340 S0UND1.S.2NEXTS 
1350 TT-TT*BE*2 
1360 C-C*1:GOT0210 

1370 RESTOREI380:FORT-0TO23:READA:POKEI4864*T,AJ9EXT:RETURN 

1380 DATAI6,56,124,124,56.16,0 

1390 DATA56.254,254,254,16,56,0 

1400 DATA 108,254,254,254,124,56,16,0 

1410 REM 

1420 RETURN 

1430 FORT-1T03000:NEXT:RETUTN 
1440 REM «<«< PUNTEGGI RECORD »»>> 

1450 IFTT>HITHENHI-TT 
1460 SC-TT:GOSUB 1580 
1470 GOTO80 

1480 REM <<<<<< FINE DEI SOLDI »»>> 

1490 X-14:Y-23’GOSUB370:FORA-lTO25 PRINT " ",:NEXTA 
1500 X-14:Y-23:GOSUB370:PRINT"(PUR)SONO FINITI I SOLDI!" 

1510 GOSUB1430:GOTO80 
1520 le=0:ri«0:fi=0 
1530 KS=REEK<198) 

1540 IFKS-10THENLE-1 
1550 IFKS=13THENRI=1 
1560 IFKS=60THENFI=1 
1570 RETURN 
1580 RR=0:GOSUB1870 
1590 FORA=5T01STEP-l 
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1600 IFSC > SC < A >ANDSC< SC < A -1 >TH£NRR=A 
1610 NEXT 

1620 IFRR=0THEN1850 

1630 FORA=4TORRSTEP-1:NA* < A +1)=NA*(A):SC(A 

+1>=SC(A>:next 

1640 NAS(RR)»•":SC<RR>=SC 

1650 GOSUB1870 

1660X-6Y-12:GOSUB370:PRINTUT BLUÌSCRIVI IL TUO NOME " 

1670 NS=“ABCDEFGHIJKLMNOPQRSTUVWXYZ.1* 

1680 X=4:Y=14:GOSUB370:PRINTN*:XX=4 

1690 X-0:Y-16:GOSUB370:PRiNT" I - FINE." 

1700 x=xx: y=15:gosub370:print*-* 

1710 X=9:Y=2l:PRINTNA*(RR) 

1720 GOSUB1520 

1730 IFLE=1ANDXX>4THENX=XX:Y=15:GOSUB370:P 
RINT" *:xx=xx-i 

1740 IFRI=*1ANDXX<32THENX=XX:Y=15:GOSUB370: 
PRINT- *:XX*XX*1 

1750 IFFI=1ANDMID* < NS, (XX-3),1)-"1 *THEN179 
0 

1760 IFFI-1THENNA*<RR)»NA*(RR)+MID*(N«,(XX 
-3),1) 

1770 IFLEN tNA*< RR ) > =15THEN1790 
1780 GOTO1700 
1790 GOSUB1870 

1800 X-7:Y-16:GOSUB370:PRINT*{BLK>PRESS SP 
ACE TO PLAY AGAIN.■ 

1810 KS»PEEK<198> 

1820 IFKS< >60THEN1810 
1830 GETA* 

1840 FORT=0TO8:POKE1319+T.0SNEXT:RETURN 
1850 IFSC<SC(1)THEN1790 
1860 RR=l:GOTO1630 

1870 SCNCLR:X-6:Y-1 :GOSUB370:PRINT"(PUR)PUNTEGGIO MASSIMO DI 
"GAJ 

1880 COLOR1,3,2:X=3 i FORA=1TOS 

1890 Y=A+4:GOSUB370:PRINTA!*-*iNA*(A)JT 

AB(30)SCIA) 

1900 NEXT:RETURN 

1910 RESTORE1920:FORN=0TO8:READA:POKE828+N 
,A:NEXT:RETURN 

1920 DATA24,166,209,164,208,32,240,255,96 
1930 RESTOREI940:FORN=0TO30: READA:POKE882♦ 
N,A:NEXT:RETURN 
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1940 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

1950 DATAI77,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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15 

Concentrazione 



Scova la coppia 

Questo gioco ingannevolmente semplice richiede buona memo¬ 
ria e naturalmente grande concentrazione. 

Ciascun giocatore ha a turno la possibilità di scegliere due carte. 
Se si tratta di una coppia si acquisisce un punteggio e le due carte 
vengono eliminate. II giocatore successivo cerca allora di scovare 
un’altra coppia e il gioco va avanti finoa che tutte le carte siano 
state scoperte. Vince chi riesce a scoprire il più alto numero di coppie. 

In alcune versioni di questo gioco si consente al giocatore che 
è riuscito a trovare la coppia di scoprire altre due carte. Secondo 
noi la presente versione a 12 carte, in cui la suddetta possibilità non 
è concessa, è preferibile; in questo modo le carte non vengono sco¬ 
perte troppo velocemente. 

Facciamo notare a quanti sono interessati alla raccolta di fondi 
per fini educativi o di beneficienza che questo gioco, come anche 
altri di questo libro, può essere impiegato allo scopo....semplice- 
mente facendo pagare il privilegio di pigiare i tasti giusti per sco¬ 
prire le carte. 
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10 REM « CONCENTRAZIONE ANDY/JIM/GREG » 

20 GOSUB1830:POKE52,55:POKE54,55:POKE56,55 
:GOSUB1850:SYS882:VOL8 

30 POKE65298,192:POKE65299, < PEEK< 65299)AND 
3)OR56 

40 clr:xx=rnd<-ti> 

50 DIMPA®(5,13),CC(3),SC(2) 

60 DIMPA(52),AV < 52) 

70 DIMCX(12),CY(12) 

80 DIMCA(12),BC(12) 

90 DIMPC(1,2),AC(12) 

100 GOSUB1690 
110 SCNCLR:GOSUB270 
120 COLOR0,2:COLOR4,2 
130 SC<1)=0:SC(2)»0 
140 GOSUB270 
150 GOSUB380 
160 GOSUB800 
170 GOSUB990 

180 fora=itoi2:ac<A)=i:nexta 

190 P=1 

200 GOSUB1440 

210 GOSUB1170 

220 GOTO1330 

230 IFP=1THENP=2:ELSEP=1 
240 GOTO200 

250 POKE208,X:POKE209,Y:SYS828: RETURN 
260 REM ««« GENERA IL MAZZO >>>>>> 

270 FORSU=lT04 

280 FORCA=1TOl3 

290 PA*(SU,CA)=CHR*<SU+96) 

300 XFCA<11ANDCA>1THENPA* <SU,CA)=PA*(SU,CA 
)+CHR*<32> +CHR*(CA+48) 

310 IFCA=1THENPA*<SU,CA)=PA*(SU,CA)+* A" 
320 IFCA=11THENPA*<SU,CA)=PA*(SU,CA)+“ J* 
330 IFCA=10THENPA*(SU,CA)=PA*<SU,CA)+*10* 
340 IFCA=12THENPA*<SU,CA>=PA*<SU,CA)+■ Q* 
350 XFCA=13THENPA*(SU,CA)=PA*<SU,CA)+* K* 
360 NEXTINEXT:RETURN 
370 REM <<<<<< MOVIMENTO »»» 

380 FORN=1T052:PA(N)=N:AV<N)=1:NEXT 
390 FORA=1TO30 

400 N1 = INT(RND(1)*51)+1 :N2=INT(RND<1)*51) + 
1 

410 CC=PA < NI> 
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420 PA(N1)=PA(N2> 

430 PA(N2)*=CC 

440 NEXT:RETURN 

450 REM <<<<<< DISEGNA LE CARTE >»>» 

460 X=CX-l:Y=CY:GOSUB250 
470 COLORI,1:PRINTCHR*(111)5 
480 PRINT*<#Y>{*Y>{*YJ{*YM*Y>"JCHR*<112) : 
CL=1:SE=0 

490 Y=CY +1 :6OSUB250 i PRINTCHR*(165); 

500 Z1*=LEFT*(PA*(SU,CA),1):IFZ1*=CHR*(98) 

ORZ1*=CHR*(100)THENCL=3:SE=2 

510 COLORI,CL,SE:PRINTRIGHT*(PA*(SU,CA),2) 

5 

520 PRINTLEFT*(PA*(SU,CA>,1)5 : COLORI,1ZPRI 
NT- -5CHR*(167) 

530 Y=CY+2:GOSUB250:PRINTCHR*<165)5:N3*=- 

■ 

540 PRINTN3* 5 :PRINTCHR*(167) 

550 Y«CY+3:GOSUB250:PRINTCHR*(165)5 * *5 

560 COLORI,CL,SE :PRINTLEFT*(PA*(SU,CA),1); 

: COLORI,l:PRINT" "5 CHR*(167) 

570 Y=CY+4:GOSUB250:PRINTCHR*(165> 5N3*;CHR 
*(167) 

580 Y=CY+5:GOSUB250:SYS828:PRINTCHR*(165)5 

■ ■ ■ 

» 

590 COLORI,CL,SE!PRINTRIGHT*(PA*(SU,CA),2) 
5- "5 : COLORI,l:PRINTCHR*(167) 

600 Y=CY+6:GOSUB250:PRINTCHR*(108)5 
610 PRINT-(*P>{*PX*P>{*PM*P) “ ; :printchrs 
( 186) 

620 SOUND1,200,2: RETURN 

630 C=INT(RND(1)*51)+1 

640 IFAV(C)=0THEN630 

650 av(O=0:nc=nc + i:bc(nc)*c:return 

660 REM <<<<<< RIDISEGNA LE CARTE »»» 

670 COLORI,7,2:x-cx-i: y»cy:GOSUB250:PRINTC 
HR*(111)5 

680 PRINT"{*YH*YH*Y){*Y){*Y)“i : PRINTCHR* 
(112) 

690 CB*-CHR*(165)+•{*+>{*♦>{*+><*+><*+>■+C 
HR*(167) 

700 F0RN-1T05:Y=CY+N:GOSUB250:PRINTCB*:NEX 
T 

710 Y=CY+6:GOSUB250:PRINTCHR*(108)5 

720 PRINT*{*P>{*PX*P>t*P>{*P>*5 CHR* (186) 
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730 SOUND1,300,2:RETURN 
740 REM <<<<<< CANCELLA LE CARTE »»» 

750 X-CX-1 :Y-CY:GOSUB250 
760 F0RYD-1T07 

770 Y-CY*YD-1:GOSUB250:PR1NT'' " 

780 NEXTYD:RETURN 

790 REM ««<< GENERA LE CARTE »»» 

800 RESTORE940SFORA-ITO12 

810 CA(A)=15 NEXTA 

820 FORA—ITO12STEP2 

830 READC1,C2 

840 C=INT(RND(1>*12)+1 

850 IFCA(C)—0THEN840 

860 BC(C>-OSCA <0*0 

870 C—INT(RND(1)*12)+1 

880 IFCA <C)—0THEN870 

890 BC < C)—C2 S CA(C > =0 

900 NEXTA 

910 F0RA—1T012 

920 READCX(A),CY < A) 

930 NEXTASRETURN 

940 DATAI,14,2,15,3,16,4,17,5,18,6,19 
950 DATAI,0,9,0,17,0,25,0 
960 DATAI,8,9,8,17,8,25,8 
970 DATAI,16,9,16,17,16,25,16 

980 REM <<<<<< DISEGNA LO SCHERMO »»» 

990 COLOR 1,7.2 
1000 F0RA-1T012 
1010 CX-CX(A):CY-CY(A) 

1020 GOSUB670 

1030 X-CX:Y-2:GOSUB250:PRINT'(LT BLUJSCORE 1" 

1040 NEXTA 

1050 X-32:Y-2:GOSUB250J>RINT"(LT BLU1PUNTI 1“; 

1060 Y-5:GOSUB250:PRINT "(BLK)PUNTl 2"; 

1070 X-31:Y-14:GOSUB250:PR1NT"(LT BLUIGIOCATORE 1"; 

1080 Y-10:GOSUB250:PRINT"(BLK)GIOCATORE T 
1090 RETURN 

1100 REM <<<<<< DECODIFICA LE CARTE »>»> 

1110 si=pc<s,W):ct=i:cd=i 
1120 sx-si: si=si-13: ifsi >0thencd*cd+i .-goto 
1120 

1130 su=cd:ca=sx: RETURN 
1140 GOTO1120 
1150 RETURN 

1160 REM ««« INPUT NUMERO »>»> 
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1170 X-0:Y-24:GOSUB250:FORA-lTO30:PRINT" ",;NEXT 

1180 GOSUB250:PR1NT(RED) INSERISCI IL PRIMO NUM"; :GOSUB1760:N1-U 

1190 IFN1CÌORNI>12THEN1170 

1200 IFAC<N1J-0THEN1180 

1210 PC(1,1)=BC(NI):9=1:W=1 

1220 GOSUB1110:CX=CX<N1>:CY=CY<N1) 

1230 GOSUB460 

1240 X=0:Y=24:GOSUB250:FORA=1TO30:PRINT* " 

5INEXT 

1250 X-0:Y-24:GOSUB250: PRINTTREDHNSERISCI ORA IL SECONDO NUM"; 
:GOSUB1760;N2-U 

1260 IFN2<10RN2 >12THEN1240 

1270 IFAC(N2)=0THEN1240 

1280 IFN1=N2THEN1240 

1290 PC<1,2)=BC(N2):Q=1:W-2 

1300 GOSUB1110:CX=CX(N2):CY=CY<N2> 

1310 GOSUB460:RETURN 

1320 REM ««<< CONTROLLA LA COPPIA »»» 

1330 8 =i:w=i:gosubiiì 0 
1340 co=ca:8=i:w=2:gosubiii0 
1350 CP=CA 

1360 IFCO=CPTHEN1500 

1370 X=0:Y=24:GOSUB250:FORA=1TO30:PRINT" * 
j :next 

1380 GOSUB250JRINT'(ORILE CARTE NON VANNO"; 

1390 GOSUB1750 

1400 CX-CX(Nl):CY-CY<N1) 

1410 GOSUB670:CX=CX(N2):CY=CY(N2> 

1420 GOSUB670:GOTO230 
1430 REM «<<« PUNTEGGI »»» 

1440 COLORI,6,2:X-32:Y-3:GOSUB250:PRINTSC(1) 

1450 Y-6:GOSUB250:PRINTSC(2) 

1460 IFP-1THENP1$-"(RVS ON)(LT BLUIGIOCATORE 1 (RVS OFF)":P2$- 
"(BLK)GIOCATORE 2" 

1470 1FP-2THENPI$-"(LT BLUIGIOCATORE 1":PSJ-"(BLK}(RVS 
ONJGIOCATORE 2(RVS OFF)” 

1480 X-31 Y= 14GOSUB250iPRINTPl*;:Y> 1600SUB250:PRINTP2J;:RETURN 
1490 REM <<<<<< COPPIA TROVATA»»» 

1500 X-0:Y-24GOSUB250:FORA-lTO30:PRINT" ",;NEXT 
1510 GOSUB250:PRINT'COPPIA TROVATA"; 

1520 AC(N1)=0: AC(N2)=0 

1530 FORS=500TO100STEP-10:SOUND1,S,l:NEXTS 

1540 GOSUB1750 

1550 CX=CX(N1):CY=CY(N1> 

1560 GOSUB7505 CX=CX(N2):CY=CY(N2) 
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1570 GOSUB750 : SC < P ) =SC ( P > -*-5 
1580 IFSC(1>+SC<2)=30THEN1610 
1590 GOTO230 

1600 REM «<<« FINE DEL GIOCO »»» 

1610 SCNCLR:COLOR 1,3,2 

1620 X-3 Y-2 GOSUB250 "PUNTI GIOCATORE I.'SCIJ) 

1630 Y-2:GOSUB250: PRINT'PUNTI GIOCATORE 2:"SC( 1 ) 

16-40 X-7:Y-11:GOSUB250PRINT"(BL1C)PR£MÌ LO SPAZIO PER GIOCARE"" 
1650 X-7:Y-11:GOSUB250PRINT'"(LT BLU) O "Q'PER FINIRE."' 

1660 GETA*:IFA*=* *THEN40 
1670 1FA*=’Q"THENSYS32768 
1680 GOTO1660 

1690 RESTORE1700:FORT=0TO23: READA:POKE1486 
4+T,a:next:return 

1700 DATA16,56,124,254,124,56,16,0 
1710 DATA56,56,254,254,254,16,56,0 
1720 DATA108,254,254,254,124,56,16,0 
1730 REM 
1740 RETURN 

1750 FORT=1TO3000:NEXT:RETURN 
1760 D*="‘ 

1770 GETKEYA* 

1780 1FASC<A*>=13THEN1800 
1790 DS<°D4i+A*:PRINTA*i :GOTO1770 
1800 U=VAL(D*>:1FU<1ORU>12THEN1820 
1810 RETURN 

1820 FORESITOLENID»):PRINT*{CUR LJ*j:NEXT: 
GOTO1760 

1830 RESTORE1840:FORN=0TO8: READA:POKE828+N 
,A:NEXT:RETURN 

1840 DATA24,166,209,164,208,32,240,255,96 
1850 RESTORE1860:FORN=0TO30: READA:POKE882+ 
N,a:NEXT:RETURN 

1860 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

1870 DATA177,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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16 

Micro Mind 



Indovinate i colori 

Versioni di questo gioco largamente diffuso ed apprezzato si pos¬ 
sono trovare per qualunque tipo di computer. Nel curare la nostra 
versione abbiamo cercato in particolare di curare la grafica, affin¬ 
ché aumenti il piacere del gioco. 

Scopo del gioco è indovinare la sequenza segreta dei colori, col¬ 
locando in fila alcuni segnali colorati. 

Il Commodore 16 vi indicherà a che punto siete nella scoperta 
della combinazione esatta: 

Un colore giusto al posto giusto vi sarà indicato da un CUORE. 

Un colore sbagliato al posto sbagliato da una CROCE. 

Un colore giusto al posto sbagliato da un ASTERISCO. 

I tasti S ed A vengono adoperati per selezionare il colore muo¬ 
vendo una freccetta fino al colore prescelto. La barra spaziatrice 
piazza il colore nella sequenza. Allo stesso modo vengono scelti 
i colori successivi fino a completare la fila, in attesa del risultato. 
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10 REM >>>>>>>>MICRO MIND<<<<<<< 

20 REM >>>>>>GREGZ ANDYZJIM<<<<<< 

30 FORT*» 1T06 : READP ( T > , S < T ) : NEXT : VOL8 : COLOR 
0,1:COLOR4,1:GRAPHIC1 

40 scnclr:gosubi70:g*25:h=24:z*=* ":fora= 
1T04:X=<A*4> -2:B*=*<~8X''W>" 

50 CHAR1,X,2,Z*,1:NEXT:F0RY=4T022STEP2:FOR 
X=2TO16STEP4:CHAR1,X,Y,B*:NEXTX,Y 
60 L=1:GOSUB90 

70 GOSUB100:GOSUB190: IFA*= * YYYY"THEN300 
80 L=L+1:IFL=11THEN290:ELSEGOTO70 
90 FORO=1T04:N= XNT(RND<1> *6 > +1 :N < O> =N:NEXT 
: RETURN 

100 F0RC=1T06:COLORI,P(C),S<C>:X=C+24:CHAR 
1,X,4,* *,1 :NEXT:8=2 

110 COLORI,2,7:CHAR1,0,5, "* ■:FORT=1TO20:NE 
XT:CHAR1,G,5,■ * 

120 GOSUB350:IFE=1ANDG>25THENG=G~1 
130 IFR=1ANDG< 30THENG=G+1 : ELSEIFF=1THEN150 
140 GOTO110 

150 U=G-24:COLORI, P (U),S(U):CHAR1,Q,L*2+2, 

“<^Q}*:a»=Q+4:u(8/4)=u 

160 IF8*=18THENRETURN:ELSEGOTO110 

170 RESTORE380:COLORI,2,7:CHAR1,4,0,"MICRO 

MIND* 

180 DRAW1,200,189:FORT=1T043:READX,Y:DRAWT 
OX,Y:NEXT: RETURN 

190 A*="": 8=3: COLOR1,9,5:FORZ=1T04 

200 IFU(Z)=N(Z)THENCHAR1,8,L#2+2,*< A S>":A* 

=A*+“Y":GOTOZ20 

210 CHARl,8,L*2+2,"<~V>":A*=A*+*X" 

220 8=8+4:NEXT:a=3:S=0:FORZ=lTO4 

230 IFMID*<A*,Z,1) = * Y“THENSOUND1,100,10:GO 

TO270 

240 FORW=1T04 

250 IFU(Z)=N(W)ANDMID*(A*,W,1)=*X"THENCHAR 

l,8,L*2+2,"**:GOSUB280 

260 NEXT:IFS=0THENSOUND1,450,10 

270 8=8+4:SOUNDl,0,5:NEXT:RETURN 

280 SUUND1,300,10:s=l:RETURN 

290 M$-"SPIACENTE':G0T0 310 

300 M$-"HAI INDOVINATO IN '♦STR$(L)*"' TENTATIVI"' 

310 fora=ito4:m=nia):colori,p(M>,s<m>:x=(a 

*4)-2:CHAR1,X,2,ZS,1:NEXT 
320 CHAR1,23,6,M* 
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330 CH ARI,24,15,"RIPROVA" 

340 GOSUB350:IFF=0THEN340:ELSEGOTO40 

350 E=0: R«0: F=0: K=PEEK < 198) : IFK=10THENE=1 

360 IFK=13THENR=l:ELSEIFK=60THENF*l 

370 RETURN: DATA3,2,5, 4,6, 3, 8,7,4,5,7,3 

380 DATA206,177,202,173,192,172,189,168,18 

9,166,193,159,189,156,187,152,190 

390 DATA150,188,148,186,146,188,143,190,14 

1,191,138,191,135,189,133,179,133 

400 DATA176,130,176,128,178,126,188,114,19 

0,106,192,97,200,87,212,79,230,75 

410 DATA238,74,250,77,262,81,271,90,276,98 

,278,108,278,114,276,122,275,132 

420 DATA272,142,270,150,267,160,264,164,26 

0,168,254,174,255,177,270,189 
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17 

O’Grady ordina 



O’Grady ordina: digita questo 

Si tratta d’una versione del gioco talvolta conosciuto come “Si¬ 
mon dice”. 

È un programma assai utile per insegnare il concetto della de¬ 
stra e della sinistra, però attenzione, poiché si tratta della destra 
e della sinistra dello schermo e non della vostra! 

Iniziate ciascun gioco con un solo punto. 11 rumore di gorgoglio 
annuncerà l’azione richiesta assieme al nome della persona che dà 
l’ordine. Se O’Grady dice “fallo” voi eseguite l’ordine in fretta! Se 
invece è O’Riley a dire “fallo” voi non ubbidite! L’omino in alto 
obbedisce a tutti gli ordini. 

Ci sono quattro possibili azioni che vi si può chiedere di com¬ 
piere. Per andare su e giù adoperate i cursori come al solito. Per 
andare a destra o a sinistra usate i rispettivi tasti corrispondenti 
ai caratteri che appaiono sullo schermo. Vale a dire che premendó 
il cursore sinistro farete alzare all’omino il braccio destro. 

Questa inversione è stata adottata allo scopo di realizzare una 
vera sfida mentale. Può davvero trattarsi d’una lotta vedere qual è la 
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destra e quale la sinistra e naturalmente prestare attenzione a quel 
che O’Grady ordina. Provate il gioco e scoprirete cosa intendo. 

In questo gioco è essenziale disporre d’una notevole agilità men¬ 
tale, inoltre una mancata risposta sarà interpretata come intenzio¬ 
nale: vi accadrà perciò a volte di perdere punti, a volte di guada¬ 
gnarne, se siete fortunati, poiché in quel caso la risposta giusta era 
il non far niente. 


10 REM .<<<<<< O'GRADY ORDINA »>»> 

20 REM»»»DAV1D/JIM/ISSI««< 

30 PRINTCHR$(8):VOL8:GOSUB660 

40 POKE1344,0:REM DISATTIVA LA RIPETIZIONE DEI TASTI 
50 COLOR0,1 :COLOR4,1 
60 SC=l:GOTO180 

70 GOSUB770: COLOR1,3,5:CHAR1,30, 0, A*(PO) :P 
OKE3143,34:RETURN 

80 GOSUB780:COLORI,3,5:CHAR1,30,13,AS(BM>: 
POKE3663,34:RETURN 

90 COLORI,2,6:PRINT”<CLRXCUR DNXCUR RTX 
CUR RTXCUR RTH A U)t''*}{'»H A #>t A *}{"»>{'* 

100 F0RR=1T07: PRINT” (CUR RTXCUR RTXCUR R 

tx A - > <"-}*:next 

110 PRINT " f CUR RTXCUR RTXCUR RT>t A NH A *) 
<' A *X"#X"*X"*X-'*X A ‘*X"*X' A *X"*X A '*X" 
*X"*X"*X"*X"K}” 

120 PRINT “ t CUR RTXCUR RTX A NXCUR DNXCUR 
LXCUR LX'NXCUR DNXCUR DNXCUR LH A MH 
CUR DNX-'MXCUR DN>t A M>( A »)( A *H A *H A *X A * 
}{ A «t A «( A *)t A *I{ A *}{ A *>{ A »H A *H A *X A *»t 
A I)" 

130 F0RR=1T07: PRINT” <CUR RTXCUR RTXCUR R 

TX"-} <"-}*:next 

140 PRINT” ICUR RTXCUR RTXCUR RT)t A JH A *I 
<"*X' A *X"*X"#X"*X"*X"*X"*X''*X"*X A ' 
*X A *>t A *X A *X A KX HOME}” 

150 CHAR1,9,18,"SCORE” 

160 BM=2:GOSUB80 
170 RETURN 

180 GOSUB660:GOSUB90 
190 REM <<<<<< Ciao PRINCIPALE »>»> 

200 IFRND(8)>.6THENOG=2:ELSEOG=1 
210 TU-TU+1 

220 PO=INT < RND(8)#4)♦1 
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230 GOSUB760 
240 COLOR1,2,6 

250 IFOG- 1THENCHARI,4,3"0'GRADY ORDINA..." 

260 IF0G-2THENCHAR1,4,3"0'RILEY ORDINA..." 

270 GOSUB70 
280 COLOR 1,2.7 

290 IFPO-1THENCHAR1,4,5'MUOVE IN ALTO" 

300 IFPO-2THENCHAR 1,4,5"MUOVE IN BASSO" 

310 IFPO-3THENCHAR 1,4,5'MUOVE A DESTRA" 

320 IFPO-4THENCH AR1,4,5'MUOVE A SINISTRA" 

330 T=0:BM=0 
340 GETKE* 

350 IFKE*=*CCUR UP>■THENBM=1:GOTO400 

360 IFKE*=’{CUR DN>“THENBM=2:GOTO400 

370 IFKE*=“{CUR RT > *THENBM=3!GOTO400 

380 IFKE*=*tCUR L>*THENBM=4:GOTO400 

390 T=T+l:1FT=40THEN450:ELSE340 

400 GOSUB80:COLORI,2,7 

410 IFPO=1ANDBM=1ANDOG=1THEN620 

420 IFPO=2ANDBM=2ANDOG=1THEN620 

430 IFPO=3ANDBM=3ANDOG=lTHEN620 

440 IFPO=4ANDBM=4ANDOG=lTHEN620 

450 IFT=40ANDOG=2THENSC=SC +1 :GOSUB7901GOTO 

510 

460 IFOG=2ANDKE*< >» *THENGOSUB810:GOTO490 

470 1FT=40ANDOG=1THENGOSUB830:GOTO490 

480 GOSUB760:CHAR 1,8,5'SBAGLI ATO!”:SOUNDl ,20,0,10:SOUNDI ,0,20 

490 SC-SC-I 

500 IFSC<1THEN550 

510 GOSUB650 

520 FORT-0TO999:NEXT 

530 GOTO200 

540 REM ««« FINE DEL GIOCO »»» 

550 CHAR1,4,17,'SEI STATO SFORTUNATO" 

560 CHARI.4,18" 

570 CHARI,4,I9'HA1 RISOLTO IN" 

580 CHAR1,4,20" 

590 Q$-STR$(TU)* "MOSSE." 

600 CHARI,4,21,0$ 

610 FORT-1 T02000:NEXT:RUN 
620 GOSUB760:CH ARI,7,5. "CORRETTO!" 

630 FORR=600TO800STEP10: SOUND1,R,2:NEXT 
640 SC=SC+1:GOSUB650:GOTO510 

650 Q*=“ {CUR LXCUR LltCUR LJtCUR L>" + 

STR*(SC):CHAR1,10,20,Q*:RETURN 
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660 A*(1)>= 1, £' A UX A *X A IXCUR DNXCUR LXCUR 
LHCUR LXCUR LXCUR LXCUR LX A N>{-M> { " 
-} { A -} £ A N X A 'M XCUR DNXCUR LXCUR LXCUR 
LXCUR LXCUR LXCUR LXCUR L X “MK - J } t *R 
){ A KH A NHCUR DNXCUR LXCUR LXCUR LXCUR 
LX' A MX A '+X A 'NXCUR DNXCUR LXCUR LX~-X 
CUR DNXCUR L X -- X CUR DNXCUR L)('-)' 

670 A® ( 1 ) =A# (!)+*{ CUR DNXCUR LXCUR LXCU 
R LXCUR LXCUR LXCUR LXCUR UPX~MXCUR 
DN X *Y X *Y X * Y X *Y X *Y X *Y X *Y X *Y X *Y X CU 
R UPX 'NXHOME> " 

680 A*(2) = *( A UH A *H' , IHCUR DNXCUR LXCUR 
L > {CUR LX~-> ( A -HCUR DNXCUR LXCUR LX 
CUR LX A JX*RX A KXCUR DNXCUR LXCUR LXC 
UR LX A NX A + X A MXCUR DNXCUR LXCUR LXCU 
R L X CUR LX A N> {--> {-'MXCUR DNXCUR LXC 
UR LXCUR LXCUR LXCUR LXCUR LXCUR LX A 
MX A N> £''-> { A MX A NXCUR DNXCUR L>{CUR 
L J {CUR LXCUR LXCUR LX A ->‘ 

690 A*(2)=A*<2> +'{CUR DN> £CUR LXCUR LX'-N 
> <*YX A M XCUR DNXCUR LXCUR LXCUR LXCUR 
LX A N} £ A M > < CUR DNXCUR LXCUR LXCUR L 
XCUR LXCUR LH A M) C A NXCUR DNXCUR LX 
CUR L X CUR LXCUR L>£-N> { A NXCUR DNXCUR 
LXCUR LXCUR LX A N> { A MHHOHE>* 

700 A$!3)=M A U)( A «)( A IHCUR DNXCUR LXCUR 
LXCUR LXCUR LXCUR LXCUR LX A NX A MJ £ A 
-J {--XCUR DNXCUR LXCUR LXCUR LXCUR L 
H A MH A JH*R)( A KXCUR DNXCUR LXCUR LXCU 
R LX A MX' A + X A MXCUR DNXCUR LXCUR LX~-> 
£ A MXCUR DNXCUR LXCUR LXCUR L.X-'-J £ A 

MX A NXCUR DNXCUR L>£CUR LXCUR LXCUR L> 
(CUR LX'->" 

710 A*<3)=A*<3) +■ <CUR DNXCUR LXCUR LXCU 
R LXCUR LXCUR LXCUR LXCUR UPX A MXCUR 
DN } { *Y X *Y X *Y > { *Y > { *Y > { A 'M X CUR DNX A MXCU 
R DN > { CUR L X A N X CUR DN}{CUR LXCUR LX A N> 
{CUR DN } { CUR LX-MXHOMEX 

720 A*(4>«"£~UX A *X' A IXCUR DN > {CUR L>{CUR 
L > { CUR L X A - > {' A -> £' A NX' A MX CUR DN>{CUR L 
XCUR L > {CUR L > £ CUR LXCUR LXCUR LX A JX* 
RX A KX A N>£CUR DNXCUR LXCUR LXCUR LXCU 
R LX A NX A +X A NX CUR DNXCUR LXCUR LI {CUR 
L> {CUR LX A N> { A - > {CUR DNXCUR LXCUR LX 
CUR L } {CUR L ) {CUR LX A MX A N> {--XCUR DN} 
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CCUR LX~->" 

730 A*(4)=A*<4>+ XCUR DNXCUR LHCUR LH A N 
X*YX*YX*YX*YX*YXCUR UPX A 'NXCUR DNX 
CUR DN> CCUR LHCUR LXCUR LXCUR LXCUR L> 
CCUR LXCUR L > C CUR LX^NXCUR DNXCUR L X A 
MXCUR DNH A MHCUR DNXCUR LH'NHHOME) 1 
740 CL*=“ 

750 RETURN 

760 F0RR=3T07STEP2:CHAR1,4,R," 

'INEXT:RETURN 

770 FORR=0TO11:CHAR1,26,R,CL*:NEXT: RETURN 
780 FORR=13T024:CHAR1,26,R,CL*:NEXT:RETURN 
790 GOSUB760:CHAR 1,7,5,"BEN FATT0!":CHAR1,4,3 "ORILEY LO AVEVA 
DETTO" 

800 S0UND1,200,10:SOUND1,400,10:RETURN 

810 GOSUB760:CH ARI,7,5,'SBAGLI ATO!“:CH ARI,4,3'O'RILEY LO AVEVA 
DETTO" 

820 SOUND3.900,10:SOUND3,999,10:RETURN 

830 GOSUB760:CHAR1,5,5,"FUORI TEMPO MASSIMOI" 

840 SOUND 1,200,10:SOUND1,0,20:RETURN 
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18 

Pappagallo 



Chi ha un programma più carino? 

Eccovi quattro pappagalli ciascuno di colore diverso e con il ca¬ 
po di una corda nel becco. 

Quando si dà il via al programma i pappagalli cominciano a ti¬ 
rare la corda l’uno di seguito all’altro. Dapprima si verifica una pri¬ 
ma serie e la corda viene tirata una sola volta. Quindi sta a voi co¬ 
piare la sequenza. 

I sostegni su cui gli uccelli stanno appollaiati corrispondono ai 
seguenti tasti: cursore che muove verso l’alto = pappagallo che si 
trova più in alto; asterisco (*) = pappagallo più in basso; A = 
pappagallo di sinistra; S = pappagallo di destra. 

II computer produce una sequenza semplice, ma che può durare 
molto. Quando abbiamo testato il programma nessuno fu in gra¬ 
do di ricordare una sequenza superiore a 25. Di solito attorno a 
12 cominciano le prime difficoltà. La sequenza più lunga di movi¬ 
menti che i pappagalli possono produrre ammonta a 50. Se siete 
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in grado di memorizzarla per intero dovete essere in possesso di 
una formidabile memoria visiva....o forse siete un androide! 

Questo gioco può divertire molto in occasione di party, quando 
si potrebbe chiedere ai perdenti ogni sorta di pegno! 


IO REM <<<<<< UN PAPPAGALLO »»» 

20 POKE52,55 :POKE54,55:POKE56,55:GOSUB1300 
:GOSUB1340:SYS882:VOL8 

30 POKE65298,192:POKE65299, (PEEK(65299 > AND 
3)OR56 

40 DIMNO<50>:XX=RND<-TI> 

50 COLOR0,l:COLOR4,l:COLOR1,8,5:SCNCLR 

60 6OSUB520:GOSUB840 

70 sc»0:hi»0 

80 GOSUB1030 

90 RESTORE100 

100 DATA3,8,4,6 

110 FORA»1T04:C»A:READC: COLORI,C,4:GOSUB96 
0 

120 NEXT 
130 PO»0 

HO REM <<<<<< Ciao PRINCIPALE »»>> 

150 N»INT(RND<1>*4>+1 
160 PO=PO+l 
170 NO < PO)»N 

180 GOSUB 1200:X-1 :Y-21 :GOSUB510:PRINT’ (BLU)(YEL)TOCCA A ME" 
190 FORB=lTOPO 
200 GOSUB1140 
210 NEXT 

220 FORT»ITO1000:NEXT 
230 B=1 

240 GOSUB 1200Jf-1:Y=21:GOSUB5IO:PRINT '(LT BLU1T0CCA A TE" 

250 GOSUB1230 

260 IFLE»1THENA»4: SOUND1,800,10:COLORI,6,5 

:GOSUB1000:FORT=1TO500:NEXT:GOTO310 

270 IFR1=1THENA=2:SOUND1,400,10:COLORI,8,5 

:GOSUB1000:FORT»1TO500:NEXT:GOTO310 

280 IFUP=lTHENA»l:SOUND1,200,10:COLORI,3,5 

:GOSUB1000:FORT=1TO500:NEXT: GOTO310 

290 IFDN=1THENA=3:SOUND1,600,10:COLORI,4,5 

:GOSUB1000:FORT»1TO500:NEXT:GOTO310 

300 GOTO250 

310 GOSUB960 
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320 IFNO(B)=ATHEN330:ELSE360 

330 IFB-POTHNGOSUB ! 200:X-1 :Y-21 :GOSUB 10:PR1NT"{RED)BEN FATTO,"PO 

PRINT"CRED1WELL DOME,‘PO* SO FAR.* 

340 IFB=POTHENFORT=ITO1500:NEXT:GOSUB1200: 
GOTO150 

350 B=B+1:GOTO250 
360 GOSUB1200 

370 X-1 :Y-21COSUB51 OPRINT'IPURISEQUENZA SBAGLIATA” 

380 Y-22COSUB510PRINT'DOPO "PO-1" MOVIMENTI." 

390 FORT-1T02000:NEXT 
400 GOSUB1200 

410 Y-21 :GOSUB51 OPRINT 'IGRNILA SEQUENZA ERA" 

420 FORT-ITOl 000J4EXT 
430 FORB-ITOPO 
440 GOSUB1140 
450 NEXT . 

460 GOSUB1200 

470 X-1 :Y-21 :GOSUB51 OPRINT' fCYNIRIPROVA." 

480 FORT=1TO2000:NEXT 
490 GOSUB1200 
500 GOTO130 

510 POKE208,X :POKE209,Y:SYS828: RETURN 

520 RESTORE530:FORT=0TO239: READA:POKE14848 

+ T,A:NEXT: RETURN 

530 DATA2,2,2,2,0,7 t 15,31 

540 DATA0,0,3,7,7,206,254,255 

550 DATA0,0,224,248,248,124,124,252 

560 DATA31,25,16,0,1,2,4,0 

570 DATA255,63,143,135,7,7,15,31 

580 DATA252,248,240,240,240,248,252,254 

590 DATA30,29,61,59,59,59,61,30 

600 DATA255,255, 255,255 , 255,255, 255, 63 

610 DATA0,128,192,224,240,248,252,254 

620 DATA15,7,0,0,0,28,63,0 

630 DATA199,248,255,63,48,96,248,0 

640 DATA255,63,255,255,31,3,0,0 

650 DATA0,128,192,224,240,248,124,3 

660 DATA2,2,2,2,0,30,127,127 

670 DATA0,0,0,0,0,0,0,192 

680 DATA0,0,0,0,0,0,0,7 

690 DATA0,0,0,0,0,15,127,255 

700 DATA0.0,1,31,255,255,255,254 

710 DATA28,120,240,224,192,128,0,0 

720 DATA255,255,231,231,255,127,31,15 

730 DATA240,255,255,255,255,255,143,7 
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740 DATA255,255,255,255,255,255,127,28 

750 DATA255,255,255,254,253,243,207,63 

760 DATA252,216,176,96,192,192,128,0 

770 DATAI5,30,30,30,31,30,15,7 

780 DATA3,1,16,96,128,3,7,0 

790 DATA227,255,255,31,6,12,255,0 

800 DATA254,252,248,224,0,0,0,0 

810 DATA2,2,2,2,2,2,2,2 

820 DATA255,66,36,24,24,36,66,255 

830 REM »»» INIZI ALIZZA2IONE ««« 

840 PX<1)=20:PX<2)=30:PX(3>=14:PX<4>=6 
850 PY <1)=4 :PY < 2 > =13:PY < 3)=15 :PY < 4)=8 
860 U1*=CHR*<96>+CHR*<97>+CHR*<98)+* 

870 U2*=CHR*<99> +CHR*<100)+CHR*<101) +■ 

a 

880 U3*=CHR*<32>+CHR*<102> +CHR*<103)+CHR*< 
104)+" 

890 U4*=CHR*<32>+CHR*<105)+CHR*<106)+CHR*< 
107)+ C HR* <108)+" 

900D1$-CHRJ(124K ".REM 5 SPAZI 

910 D2J-CHR$( I09KCHRJ( 110)*CHRJ( 111 )*CHRJ( 112KHR$(11 ih 
CHR$(1 14) 

920 D3J-CHR$( 115 KHR*(116 )*CHR$( 117 )*CHR$( 118 KHR*( 119 h 
CHRJI32) 

930 D4$-CHRJ(120KHRJ(1 10KHRJU21KHR$(I22KHRJ( 123K " 

940 RETURN 

950 REM <<<<<< ALTO »»» 

960 X-PXIA):Y-PY(A):GOSUB510:PR!NTU 1$:Y-PY(A)« 1 -.GOSUB510:PRINTU2$ 
970 Y-PY(A)«2:GOSUB510:PRINTU3J:Y-PY< A)*3:GOSUB510:PRINTU4$ 

980 RETURN 

990 REM «<«< BASSO »»» 

1000 X-PX(A):Y-PY(A):GOSUB510:PRINTDl$:Y-PY(AH:GOSUB5I0 
:PRINTD2$ 

1010 Y-PY(A)t2:GOSUB5IO:PRINTD3$ Y-PY(A)+3«OSUB510:PRINTD4$: 
RETURN 

1020 REM <<<<<< DISEGNA LO SCHERMO >>»» 

1030 COLOR1,2,3:Y=0:FORX=0TO39:G0SUB510:PR 
1NTCHR* <125) f :NEXT 

1040 COLORI,3,5:F0RT=1T03:X=20:Y=T:GOSUB51 
0:PRINTCHR* <124):NEXT 

1050 COLORI,8,5:F0RT=1T012:X=30:Y=T:GOSUB5 
10:PRlNTCHR* <124):NEXT 

1060 COLORI,4,5:F0RT=1T07:X=6:Y=T:GOSUB510 
:printchr*<124>:next 
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1070 COLORI,7,6:F0RT=1T014:X=14:Y=T:GOSUB5 
10:PRINTCHR*(124):NEXT 

1080 PL*="* : FORT=1T05:PL*=PL*+CHR* 1125): NE 
XT:COLORI,2,3 

1090 x~20:Y=8:GOSUB510:PRINTPL*:x=30:Y=17: 
GOSUB510:PRINTPL* 

1100 x=6:Y=12:GOSUB510:PRINTPL*:X=14:Y=19: 
GOSUB510:PRINTPL* 

1110 Y=20:FORX=0TO39;GOSUB510:PRINTCHR*(12 
5); :NEXT 

1120 COLOR 1,9,4 J(-l 7:Y-23:GOSUB510:PR1NT "PAPPAGALLO 'JIETURN 
1130 REM <<<<<< SUONO >>>>>> 

1140 IFNO< B)=1THENA=1 : COLORI,3,5:GOSUB1000 

: SOUND1,200,10:FORT=1TO500:NEXT 

1150 IFNO < B)=2THENA*2: COLORI,8,5:GOSUB1000 

: SOUND1,400,10:FORT=1TO500:NEXT 

1160 IFNO(B)=3THENA=3: COLOR1,4,5:GOSUB1000 

:soundi,600,i0:fort=ito500:next 

1170 IFNO(B ) =4THENA=4: COLORI,6,5:GOSUB1000 

: SOUND1,800,10:FORT=1TO500: NEXT 

1180 GOSUB960 

1190 RETURN 

1200 X=0:Y=21:GOSUB510:FORZ=0TO30:PRINT" * 
; :NEXT 

1210 Y=22:GOSUB510:FORZ=1TO30:PRINT- “5:NE 
XT:RETURN 

1220 IFKS=49THENDN=1 

1230 LE=0:RI=0:UP=0:DN=0:KS=PEEK <198) 

1240 IFKS=10THENLE=1 
1250 IFKS*=13THENRI«1 
1260 IFKS=43THENUP=1 
1270 IFKS=49THENDN-1 
1280 RETURN 

1290 POKE65298,196:POKE65299,209: STOP 
1300 RESTORE1310:FORN=0TO53:READA:POKE828 + 
N,A:NEXT: RETURN 

1310 DATA24,166,209,164,208,32,240,255,96, 
169,0,133,210,169,12,133,211,32,60,3 
1320 DAT A164,209,240,8,169,40,32,102,3,136 
,208,248,165,208,32,102,3,177,210,133 
1330 DATA215,96,24,101,210,133,210,165,211 
,105,0,133,211,96 

1340 RESTORE1350:FORN=0TO30:READA:POKE882+ 
N,A:NEXT: RETURN 
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1350 DAT A160 » 0 f 132,212,132,214,109,208,133 
,213,169,56,133,215,162,3 

1360 DATA177,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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19 

Pick Man 



An Arcade Gobble 

Questo è il primo di una serie di tre giochi simili. Rappresenta 
la variante di un tipo assai noto in cui il giocatore deve guidare 
un omino in un labirinto mangiando nel frattempo il maggior nu¬ 
mero possibile di puntini. 

Ma la vita non è facile in questi labirinti poiché ci sono sempre 
un paio di cattivi che cercano di mangiare i puntini prima di voi. 

Per rendere le cose ancora peggiori, se vi prendono, vi ammaz¬ 
zano! Nella nostra versione il giocatore deve far fuori il maggior 
numero di puntini prima che finiscano, ed evitare ovviamente di 
essere ucciso. Quando i puntini finiscono, si passa allo schema suc¬ 
cessivo. 

Per dirigere la marcia dell’omino raccoglitore adoperate il cur¬ 
sore superiore per andare in alto, l’asterisco (*) per scendere, S per 
la destra, A per la sinistra. 

Un giocatore esperto e paziente può stabilire dei record incredibili. 
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10 REM «««< PICK MANMSSI/GREG »»»> 

20 GOSUB2020:PRINT *{CLR > * :A=65298:POKEA,PE 
EK(A)AND251 

30 POKEA+1,<PEEK(A+l>AND3)OR56 
40 POKE52,55:POKE54,55:POKE56,55:V0L8 
50 GOSUB2070:SYS882 

60 RESTORE70:FORN=0TO127:READA:POKE14848+N 

,a:next:goto260 

70 DATA3,15,63,63,123,113,241,251 

80 DATA192,240,252,252,222,142,143,223 

90 DATA255,255,127,127,63,63,15,3 

100 DATA255,255,254,254,252,252,240,192 

110 DATA3,15,63,63,123,113,241,251 

120 DAT A192,240,252,252,222,142,143,223 

130 DATA255,255,127,127,63,63,15,3 

140 DATA255,255,254,254,252,252,240,192 

150 DATA3,29,49,33,65,65,129,255 

160 DATA255,129,65,65,33,49,29,3 

170 DATAI92,176,140,132,130,130,129,255 

180 DATA255,129,130,130,132,140,176,192 

190 DATA255, 129,129,129,129,129, 129,255 

200 DATA3,3,0,0,0,0,0,0 

210 DATAI5,112,64,128,128,64,112,15 

220 DATA240,14,2,1,1,2,14,240 

230 YY*=LEFT*(YD*,Y)IPRINTYY*!:PR1NTTAB(X) 

*GREG“: STOP 

240 SYS837:CH=PEEK(215): RETURN 
250 SYS837:CM=PEEK(215):RETURN 
260 HI=1000 

270 REM <<<<<< Ciao PRINCIPALE »»>> 

280 REM 

290 SC=0:CO=8:LI=3 

300 GOSUB430 : T*= •{'■*>(- Al": BS= ■ { ~ B > { ~C > - 
310 T1*«’('‘DH' , E)*:B1$=*{ A F){''6)" 

320 PRINT *{BLU >“ 

330 X=20:Y~15 

340 Xl-l:Y1=2:X2=35:Y2=2 

350 GOSUB810 

360 GOSUB1570 

370 GOSUB810 

380 IF(X1»XANDY1-Y)OR < X2=XANDY2=Y)THENDE=1 
390 1FCO >257THEN1090 
400 IFDE=1THEN1120 
410 GOTO350 

420 REM <<<<<< SCHERMO »»» 
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■430 COLORA, 1 ::COLORO,l:PRINT"(HOME)(OR)PUNTI 00 VITELLI 
440 POLE208,28:POKE209,0:SYS828:PRINT"RECORD'HI 
450 COLORI,6,5 

460 U*=CHR*(108)+CHR#(108):X*=CHR*<104)+CH 
RS(106>:V*=CHR*(109)+CHR*(32> 

470 Y*=CHR*(105)+CHR*(107) :Z*=CHR*(110) + * < 
“LH A L){ A L){ A L)<"LH A LH''L}{ A L)*+CHR*(111) 
480 R*=v*+v*+v*:S*=R*+V*+V* 

490 PRINTCHR*(104)5 :FORT=0TO37:PRINTCHR*(1 

08); :next:printchr*<106); 

500 A*=CHR*(108)+S*+W*+S*+V*+V*+W*+S*+CHR* 
(108) 

510 PRINTA»!:Q*=A* 

520 PRINTA*! 

530 A*=CHR*(108)+V*+CHR*(110>+W*+W*+CHR#(1 
06)+V*+Y*+V*+Z*+V*+Y*+V* 

540 A*=A#+CHR*(104)+W*+W**CHR*(111)+V*+CHR 
*(108):PRINTA*! 

550 A*=CHR* <108)+R*+W*+S*+S*+V*+W*+R*+CHR* 
(108):PRINTA»! 

560 MID*(A*,8,2)=Y*:MID*(A*,32,2)=Y*:PRINT 
A»! 

570 A*=W*+W*+CHR*(106> +R*+X*+V*+Z*+V*+X*+R 
#+CHR#(104)+W**W*:PRINTA#! 

580 A*=W*+W*+CHR*(107)+R*+W#+S*+V*+V*+W*+R 
#+CHR*(105)+w*+w*:PRINTA»! 

590 A*=CHR#(108)+R*+X*+V*+W*+S*+V*+V*+W*+V 
#+X#+R#+CHR*(108):PRINTA*! 

600 A*=CHR*(107)+R*+W*+V*+Y*+V*+CHR*(104)+ 
W*+CHR*(107)+Y* 

610 A#=A#+CHR#(105)+W*+CHR#(106)♦V*+Y*+V*+ 
W#+R#+CHR#(105):PRINTA*! 

620 A*=CHR*(32>+V*+X**V*+W*+R*+W*+* 
+W#+R*+W*+V*+X#+V#+CHR#(32):PRINTA*! 

630 MID*(A*,4,2)=Y#:MID#(AS,36,2)=Y* 

640 PRINTA»! 

650 A*=CHR*(106)+R*+W*+V*+X*+V*+W*+ * 
•+WS+V*+X*+V*+W*+RC+CHR*(104) 

660 PRINTA»! 

670 J*=A*:A*=CHR*(108)+MID*(J*,2,10)+W*+V* 
+CHR* ( 105) ♦■( , 'L)( A U{''L)( A LH A LH A LH A L}( A 
L > ” +CHR#(107) 

680 A#=A#+V#+W#+MID*(J#,30,10)+CHR*(108):P 
RINTA#! 

690 A*=W*+W*+CHR*(106)+V*+W*+V*+W*+S*+V*+V 
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»+W*+V*+W*+V*+CHR*<104)+W*+W* 

700 PRINTA»; 

710 MID»<A*,5,1)=CHR*<107>:MID*<A»,36,1>=C 
HR*<105):MID*(A*,8,2)=Y* 

720 MID*<A*,32,2>=Y*:PRINTA»; 

730 A»=CHR*<108)+S*+W**V*+Z*+V*+W»+S*+CHR» 

<108):PRINTA»;:A»=a«:PRINTA»; 

740 B*=CHR*(104)+W*+W»+CHR*(106):MID*(A»,4 
,6)=B*:MID*<A»,32,6)=B*:PRINTA»; 

750 B*=CHR# 1105)+W»+W»+CHR»(107);MID»(A*,4 
,6)=B*:MID*(A»,32,6)=B* 

760 MID»(A»,16,10)=z*:PRINTA»;a»;a»; 

770 PRINTCHR» i 105); :FORT=0TO37:PRINTCHR*<1 
08);:next:printchr*<107);:print*{HOME>* 

780 RETURN 

790 REM <<<<<< INIZI ALIZZAZIONE »»» 

800 REM ««« MOVIMENTO»»» 

310 GOSUB1750 
820 IFLE=1THENGOSUB880 
830 IFRI=1THENGOSUB920 
840 IFUP=1THENGOSUB960 
850 IFDN—1THENGOSUB990 
860 GOSUB1690:RETURN 
870 REM <<<<<< CONTROLLO »>»> 

880 POKE208,X-1 :POKE209,Y:GOSUB1840:IFCM< > 
32THENRETURN 

890 POKE208,X-l:POKE209,Y +1 :GOSUB1840:IFCM 

< >32THENRETURN 

900 GOSUB1020:X=X-l:IFX=0THENX=37 
910 RETURN 

920 POKE208,X+2:POKE209,Y:GOSUB1840:IFCM< > 
32THENRETURN 

930 POKE208,X+2:POKE209,Y +1 :GOSUB1840:IFCM 

< >32THENRETURN 

940 GOSUB1020:X=X+l:IFX= >38THENX=1 
950 RETURN 

960 POKE208,X :POKE209,Y-l:GOSUB1840: IFCM< > 
32THENRETURN 

970 POKE208,X+l:POKE209,Y-l:GOSUB1840:IFCM 

< >32THENRETURN 

980 GOSUB1020:Y=Y-1 : RETURN 

990 POKE208,X:POKE209,Y+2:GOSUB1840:IFCMO 
32THENRETURN 

1000 POKE208,X+1:POKE209,Y+2:GOSUB1840:IFC 
M<>32THENRETURN 
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1010 GOSUB1020:Y=Y+l:RETURN 

1020 POKE208,X:POKE209,Y:SYS828:PRINT" "I 
1030 POKE208,X:POKE209,Y +1:SYS828:PR X NT- 

■ ; : RETURN 

1040 POKE208,XI :POKE209,Y1:SYS828:PRINT’ 

1050 POKE208,X1 :POKE209,Y1 +1 :SYS828:PRINT * 

1060 POKE208,X2:POKE209,Y2:SYS828:PRINT * 

■ 

1070 POKE208,X2:POKE209,Y2+1:SYS828:PRINT’ 
* : RETURN 

1080 REM <<<<<< RESETTA »»» 

1090 SC-SC* 1000:POKE208,6:POKE209,0:SYS828:PRINTSC 
1100 RESTORE2000:TU-12:GOSUB!820:CO-8:GOTC>300 
1110 REM <<<<<< MORTE »>>» 

1120 CJ-T$:DJ-B$:DE-0:GOSUB 1020JREST0RE1980:TU-8:GOSUB 1820 
1130 GOSUB1040:COLOR 1,9,4:LI-LI-1 :IFLI-0THEN 1920 
1 HO POKE208,19:POKE209,0:SYS828:PRINTLI:GOTO330 
1150 REM ««« MOSSE SBAGLIATE »»» 

1160 POKE208,XI-1:POKE209,Y1:GOSUB240:1FCH 

< >77ANDCH>71THENRETURN 
1170 IFCH=77THENCO=CO+l 

1180 POKE208,X1-1:POKE209,Y1 +1 :GOSUB240: IF 
CH< >77ANDCH>71THENRETURN 
1190 IFCH=77THENCO=CO+l 

1200 GOSUB1040: X1=X1-1:GOSUB1710: RETURN 
1210 POKE208,X2-1:POKE209,Y2:GOSUB240:IFCH 

< >77ANDCH>71THENRETURN 
1220 IFCH=77THENCO=CO+l 

1230 POKE208,X2-1 1 POKE209,Y2 +1 :GOSUB240:IF 
CH<>77ANDCH>71THENRETURN 
1240 IFCH=77THENCO=CO+l 

1250 GOSUB1040:X2=X2-1:GOSUB1710:RETURN 
1260 POKE208,X1+2:POKE209,Y1 !GOSUB240:IFCH 

< >77ANDCH>71THENRETURN 
1270 IFCH=77THENCO=CO+l 

1280 POKE208,X1+2:POKE209,Y1+1:GOSUB240:IF 
CH< > 77ANDCH >71THENRETURN 
1290 IFCH=77THENCO«CO+l 

1300 GOSUB1040:X1=X1 + 1 :GOSUB1710:RETURN 
1310 POKE208,X2+2:POKE209,Y2:GOSUB240:IFCH 

< >77ANDCH >71THENRETURN 
1320 IFCH=77THENCO=CO+l 

1330 POKE208,X2+2:POKE209,Y2+1:GOSUB240:IF 
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CH- >>7ANDCH>71THENRETURN 
1340 IFCH=77THENCO=CO+l 

1350 GOSUB1040:X2=X2+1:GOSUB1710:RETURN 
1360 POKE208,XI :POKE209,Y1-1 :GOSUB240:IFCH 

< > 77ANDCH > 71THENRETURN 
1370 IFCH=77THENCO=CO+l 

1380 POKE208,X1+1:POKE209,Y1-1:GOSUB240:XF 
CH< >77ANDCH>71THENRETURN 
1390 IFCH=77THENCO=CO+l 

1400 GOSUB1040:Y1=Y1- 1 :GOSUB1710:RETURN 
14 10 POKE208,X2:POKE209,Y2-1 :GOSUB240:IFCH 

< > 77ANDCH > 71THENRETURN 
1420 IFCH=77THENCO=CO+1 

1430 POKE208,X2+1 :POKE209,Y2-1 :GOSUB240: IF 
CH< > 77ANDCH >71THENRETURN 
1440 IFCH=77THENCO=CO+l 

1450 GOSUB1040:Y2=Y2-1:GOSUB1710: RETURN 
1460 POKE208,Xl:POKE209,Y1+2:GOSUB240:IFCH 

< >77ANDCH >71THENRETURN 
1470 IFCH=77THENCO=CO+l 

1480 POKE208,XI * 1 :POKE209,Y1+2 :GOSUB240: IF 
CH<> 77ANDCH >71THENRETURN 
1490 IFCH—77THENCO—CO+1 

1500 GOSUB1040:Y1=Y1 + 1 :GOSUB1710:RETURN 
1510 POKE208,X2:POKE209,Y2+2:GOSUB240:IFCH 

< >77ANDCH > 71THENRETURN 
1520 IFCH=77THENCO=CO+l 

1530 POKE208,X2+1 :POKE209,Y2+2:GOSUB240:IF 
CH<>77ANDCH>71THENRETURN 
1540 IFCH=77THENCO=CO+l 

1550 GOSUB1040:Y2=Y2+1:GOSUB1710:RETURN 
1560 RETURN 

1570 N=RND(1) : IFN >0.7THEN1620 

1580 IFX >X1THENGOSUB1260 

1590 IFX< X1THENGOSUB1160 

1600 IFY >Y1THENGOSUB1460 

1610 IFY<Y1THENGOSUB1360 

1620 N=RND(1):IFN>0.6THENRETURN 

1630 IFX >X2THENGOSUB1310 

1640 IFX< X2THENGOSUB1210 

1650 IFY>Y2THENGOSUB1510 

1660 IFY<Y2THENGOSUB1410 

1670 RETURN 

1680 REM <<«« DISEGNA L’UOMO »»» 

1690 COLOR1,7,4:POKE208,X :POKE209,Y:SYS828 
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:printt»; 

1700 POKE208,X:POKE209,Y+1 :SYS828:PRINTB*! 

: RETURN 

1710 COLORI,3,2:POKE208,XI :POKE209,Y1:SYS8 
28:PRINTT1*; 

1720 POKE208,X1 :POKE209, Y1 + 1 :SYS828:PRINTB 
1*5 

1730 POKE208,X2:POKE209,Y2:SYS828:PRINTT1* 

5 

1740 POKE208,X2:POKE209,Y2+1 :SYS828:PRINTB 
1*5 : RETURN 

1750 LE=0:RI=0:UP=0:DN=0:KS=PEEK(198) 

1760 IFKS=10THENLE=1 
1770 IFKS=13THENRI=1 
1780 IFKS=43THENUP—1 
1790 IFKS=49THENDN=1 
1800 RETURN 
1810 REM <<<<<< SUONA »»» 

1820 FORN-1 T0TU:READN0,DU:S0UND2,N0,DU:NEXTN:RETURN 
1830 REM ««« CONTROLLO »»» 

18- 40 XX-PEEK(208):YY-PEEK(209).<jOSUB250 
1850 IFCM<>77THEN 1880 

1860 CM-32:SC-SC* 10:SOUND2,120,7:CO-CO* 1 :POKE208,5:POLE209,0: 
SYS828.COLORl,9,-4 

1870 PRI NTSCPOKE208 ,XX:P01CE20 9, YY 

1880 IFCM-32THENRETURN 

1890 1FCM>71THENRETURN 

1900 DE-LRETURN 

1910 REM <<<<<< FINE GIOCO »»» 

1920 PRINT '(CLRr:POKE208,8:POKE209,3:SYS828:PRINT "(CYN)SIETE 
STATI CATTURATI!" 

1930 POKE208,8J 3 OKE209,21 :SYS828:PRINT"(YEL}PREMERE T'PER 
GIOCARE ANCORA" 

19- 40 IFDC>HITHENHI-SC:POK£208,10:P01CE209,3:SYS828:PRINT''(PUR)UN 
NUOVO RECORD!" 

1950 GETA$: 1 FA$<>"S"THEN 1950 
1960 GOTO280 

1970 REM * * * DEAD TUNE * * * 

1970 REM <<<<<< SUONO DELLA SCONFITTA »>»> 

1980 DATA28-4,20,28-4,20,28-4,20,358,75.319,20,319,20,319,20,379,75 
1990 REM <<<<<< SUONO DELLA SCHERMATA »»» 

2000 DATA319,20,253,20,213,50,253,20,213,2 
0,253,50 

2010 DATA319,20,253,20,213,50,253,20,319,2 
0,253,50 
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2020 RESTORE2030:FORN=0TO53:READA:P0KE828+ 
N,A!NEXT 

2030 DATA24,166,209,164,208,32,240,255,96, 
169,0,133,210,169,12,133,211,32,60,3 
2040 DATA164,209,240,8,169,40,32,102,3,136 
,208,248,165,208,32,102,3,177,210,133 
2050 DATA215,96,24,101,210,133,210,165,211 
,105,0,133,211,96 
2060 RETURN 

2070 RESTORE2080:FORN=0TO30:READA:POKE882+ 
N, A:NEXT: RETURN 

2080 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

2090 DATA177,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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20 

Skippy 



Un salto in avanti 

“C’era una volta in Australia, che davvero dista molto dall’In¬ 
ghilterra, un piccolo canguro. Questo birboncello si chiamava Skippy 
e a lungo menò una vita assai felice. 

“Skippy aveva la casa presso la riva d’un fiume dalle acque velo¬ 
ci su cui galleggiavano tronchi d’albero. E gli piaceva assai di star¬ 
sene nella sua piccola capanna a godersi il paesaggio, ma un brut¬ 
to giorno le cose cambiarono. 

“Vennero degli uomini cattivi e costruirono proprio vicino al fiu¬ 
me un’autostrada. Ciò significava che ogni giorno, di ritorno dai 
pascoli, Skippy e i suoi amici dovevano attraversare la strada af¬ 
follata, saltare sui tronchi galleggianti nel fiume e poi di nuovo da 
questi alla casa di ciascuno quando ci passavano davanti. Caro Let¬ 
tore, tutto ciò è assai pericoloso, e ad essi farebbe piacere se tu vo¬ 
lessi aiutarli”. 

Usando i cursori potete guidare Skippy e i suoi amici attraverso 
la strada, poi sul fiume ed infine al sicuro nella loro casa. La vo¬ 
stra assistenza ai canguri sarà ripagata da altrettanti punti, in base 
alla vostra bravura! 
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10 REM »» SKIPPY ««<«««« 

20 REM > > > > BOOTSY/GREG< <<<<<<<<< 

30 POKE52,55:POKE54,55:POKE56,55 
40 POKE65298, 192 :POKE65299, (PEEK(65299) AN 
D 3) OR 56 

50 COLOR0, 1 : COLORI,2:COLOR4,1 :VOL 8 
60 GOSUB 830 
70 KA=3:SC=0 

80 GOSUB 740:GOSUB Ó80:KH=0 
90 KX=20:KY = 21:K=l16:CA=8l:CC=72:M=0 
100 CHAR1,KX,KY,CHR*<K> 

110 REM «<«< Ciao PRINCIPALE »»» 

120 GOSUB 450: IF K AND 1 THEN GOSUB 590 :GO 
TO 120 

130 CH=PEEK < 3072+KX+KYH40) 

140 IF CH>63 AND CH<77 OR CA>81 THEN 210 

150 IF KY=3 THEN 310 

160 GOSUB 400:IF TS THEN GOSUB 580 

170 IF CA >67 AND CA<80 THEN KX=KX+<1 AND K 

Y=5)-(1 AND KY=7> 

180 IF KX=0 OR KX=39 THEN 210 
190 GOTO 100 

200 REM <««< PERDITA DI UNA VITA >»»> 

210 KA-KA-1 

220 POR 1-800 TO 100 STEP -100 
230 SOUND 2,I,1:NEXT I 

240 IF KA THEN POKE 3072*KX»KY*40.CA:PO£E2048*KX*KY*40,CC:GOSUB 
680:GOTO 90 
250 SCNCLR 

260 CHAR1,6,12," SEI MORTOI" 

270 CHAR1,4,I4,''PREMI LA BARRA PER RIPROVARE" 

280 GETKEY IJ:IF I*<>CHRJ(32) THEN 280 
290 GOTO 70 

300 REM <««< FATTO »»» 

310FORJ-1 TO 2 

320 FOR 1-100 TO 800 STEP 100 

330 SOUND 2,1,1 J4EXT 1 

340 FOR 1-800 TO 100 STEP -100 

350 SOUND 2,1,1 ;NEXTIJ 

360 KH-KH* 1 :SC-SC« 1 :GOSUB 680 

370 IF KH<4 THEN 90 

380 CHARI,6,12, CE L'HAI FATTA! ':GOTO 270 

390 REM-INPUT- 

400 TS=0:GET I* 

410 IF 1*=“’ THEN RETURN 
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420 TS=1 AND I*=CHR*(145) OR 3 AND I*=CHR* 
<29>:IF TS THEN RETURN 

430 TS=5 AND I*=CHR*<17) OR 7 AND I*=CHR*( 
157) : RETURN 

440 REM <<<<<< EFFETTUA I MOVIMENTI >>>>>> 

450 L2*=RIGHT*<L2*,1)+LEFT*(L2»,38) 

460 Ll*i=RIGHT* (LI*. 38)+LEFT*(LI*,1) 

470 C3*=RIGHT*(C3*,1)+ LEFT* <C3*,38> 

480 C2*=RIGHT*(C2*,38)+LEFT*(C2»,1) 

490 C1*=RIGHT*<C1*,1)+LEFT*(C1»,38) 

500 COLORI,7,3:CHAR1,0,5,L2* 

510 CHAR1,0,7,Ll$ 

520 COLORI,3,2:CHAR1,0,15,C3* 

530 COLOR 1,8,6:CHAR1,0,17,C2® 

540 COLORI,7,3:CHAR1,0,19,Cl* 

550 COLOR1,2 
560 RETURN 

570 REM <<<<<< MUOVE IL CANGURO »»» 

580 K=116+INT(TS/2)*2:M=TS 

590 IF K AND 1 THEN SOUND 3,1000,4 : ELSE SO 
UND 2,200,4 

600 XF <K AND 1>=0 THEN K=K+t:ELSE K=K-1 
610 POKE 3072+KX+KY*40,CA:POKE 2048+KX+KY* 
40, CC 

620 KX=KX+(1 AND M=3 AND KX<38)-(1 AND M=7 
AND KX >2) 

630 KY=KY+(1 AND M=5 AND KY<23)-(1 AND M=1 
) 

640 CA=PEEK(3072+KX+KY*40):CC=PEEK(2048+KX 
+KY*40> 

650 CHAR1,KX,KY,CHR*(K> 

660 RETURN 

670 REM «<«< PUNTI ECC. »»» 

680 IF SC>HS THEN HS-SC 
690 CHAR1,7,0,STRJ(SC) 

700 CHAR1,17,0,STR$(HS) 

710 CHAR1,28,0,STRJ(SA) 

720 RETURN 

730 REM <<<<<< DISEGNA LO SCHEMA »»» 

740 SCNCLR 

750 COLORI, 2:CHARI,0,0'PUNTI: RECORD:" 

760 COLOR1,9,4:CHAR1,0,2,BAS 
770 COLORl,7,3:PRINT RV*|RV* 

780 COLORI,9,4:FOR 1=1 TO 5 
790 PRINT B23;:NEXT I 
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800 CHAR1,0,21,B2*:PRINT B2*;B3® 

810 GOTO 500 
820 REM <<<<<< SPRITE »»» 

830 RESTORE 

840 FOR 1=0 TO 30: READ J 
850 POKE 882+ 1,J:NEXT I: SYS 882 
860 FOR 1=0 TO 223:READ J 
870 POKE 14848+1,J:NEXT I 

880 CR*=CHR®(96) +CHR*<97)+CHR®(98)+CHR*(99 
) 

890 LY*=CHR*(100)+CHR*(101)+CHR*(102> +CHR* 
(103)+CHR*(104)+CHR*(105) 

900 BK®=CHR*(106)+CHR*(107)+CHR*(108> 

910 LG*=CHR*(109)+CHR*(110)+CHR®(111)+CHR® 
(110)+CHR®(111)+CHR*(112) 

920 W2*=CHR*(114)+CHR®(114) 

930 W3*=W2*+CHR®(114> 

940 S1*=CHR*(32):S2®=CHR*(32)+CHR*(32) 

950 S3*=S1*+S2®:S4*=S2*+S2* 

960 S8*=S4*+S4*:S0®=S4*+S8* 

970 C1*=CR*+CR*+S8*+CR»+S4*+CR*+CR*+CR*+S3 

* 

980 C2*=LY*+S0*+LY*+S3®+LY*+LY* 

990 C3*=BK*+BK*+S8*+BK*+BK®+BK*+BK®+BK»+S2 
*+S3* 

1000 L1*=LG*+W3*+W3*+LG*+W3*+W3*+LG*+W3*+W 
3*+W3* 

1010 L2*=LG*+W3*+W3*+LG*+W3*+W3*+LG*+W3*+W 
3*+W3* 

1020 FOR X=1 TO 100:RV®=RV®+CHR®(114):NEXT 
1030 FOR 1=1 TO 80:BA*=BA*+CHR*(115>:NEXT 
1040 FOR 1=45 TO 75 STEP 10 
1050 MI D®(BA®,1,1)=CHR®(32):NEXT I 
1060 FOR 1=1 TO 40 

1070 B2*=B2*+CHR®(113):B3*=B3®+CHR*(115) 

1080 NEXT I 

1090 RETURN 

1100 REM <<<<<< DATI »»» 

1110 DATA 160,0,132,212,132,214,169,208,13 
3,213,169,56,133,215,162,3 

1120 DATA 177,212,145,214,200,208,249,230, 
213,230,215,202,16,242,96 
1130 REM 

1140 DATA 0,0,3,31,63,125,2,1 

1150 DATA 127,132,4,255,255,223,32,192 
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1160 

DATA 

1170 

DATA 

1180 

DATA 

1190 

DATA 

1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

D^TA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 


224,16,8,255,255,251,4,3 
0,0,0,248,252,188,64,128 
3,5,9,31,63,63,2,1 
242,18,19,240,255,222,33,192 
0,0,254,199,248,232,16,224 
0,0,0,255,0,0,0,0 
0,0,0,255,28,35,35,28 
0,0,0,255,225,17,16,224 
0,1,251,127,143,172,136,112 
57,234,252,206,237,112,49,0 
0,128,112,232,16,80,16,224 
255,132,114,41,161,85,173,87 
255,0,243,0,3,112,4,255 
255,48,192,14,128,48,0,255 

240.12.98.1.49.9.1.255 

0,127,127,127,127,127,127,127 
170,85,170,85,170,85,170,85 

255.255.255.255.255.255.255.255 
36,24,90,60,24,60,60,219 
36,24,24,60,90,189,126,136 

4,12,14,24,60,188,184,94 
8,24,28,24,60,61,58,220 

219.60.60.24.60.90.24.36 

36.126.189.90.60.24.24.36 
32,48,112,24,60,61,29,122 
16,24,56,24,60,188,92,59 
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21 

Kinkey Dong 



Ascesa pericolosa 

Questo gioco s’ispira vagamente ad una serie di giochi in cui l’e¬ 
roe deve superare saltando degli ostacoli durante la sua salita lun¬ 
go scale a pioli, cercando di arrivare sempre più in alto. 

Il mostro cattivo che infatti appare sullo schermo ha sequestra¬ 
to la fidanzata dell’eroe e la tiene prigioniera in alto. Per di più il 
mostro passa tutto il suo tempo nel tentetivo di trucidare l’eroe, 
rovesciandogli addosso grossi barili. 

Il gioco si compone di diversi schemi e se riuscite a superarne 
uno, avrete il vostro daffare con il seguente. Ad ogni schema in¬ 
tanto totalizzerete dei punti. 

II movimento verso l’alto si ottiene col cursore superiore, verso 
il basso con l’asterisco (*), a destra con “S”, a sinistra con “A”. Il 
vostro piccolo eroe è anche in grado di saltare, se premete la barra 
spaziatrice. 
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10 REM <<<< KINKEY DONG OISSI/GREG >>>>> 
20 A=65298:POKEA,PEEK<A)AND25l:POKEA+l,<PE 
EK < A+1 >AND3)OR56:V0L8:PR1NT * t CLRì * 

30 POKE52,55:POKE54,55:POKE56,55:GOSUB2050 

:GOSUB2090:SYS882:GOSUB420 

40 GOSUB740 

50 GOSUB710 

60 1FLV=1THENGOSUB840 

70 IFLV=2THENGOSUB910 

80 IFLV=3THENGOSUB1010 

90 GOSUB1200 

100 X=l:Y=21 

110 bx=i:by=5:bd=i:be=0 

120 CX=37:CY=5:CD=-l:CE*0 

130 IFLV=3THENBX=10:CX=27 

140 GOSUB1640 

150 GOSUB1770 

160 GOSUB1680 

170 POKE208,X:POKE209,Y:SYS828:PR1NTOM* 

180 GOSUB1290 
190 IFY=0THEN280 

200 POKE208,X :POKE209,Y:GOSUB430 
210 IFGG=76ORGG=32THEN230 
220 GOTO300 

230 POKE208,X:POKE209,Y+1:GOSUB430 
240 IFGG*=32THENY=Y +1 

250 POKE208,BX:POKE209,BY:SYS828:PRINTOB* 
260 POKE208,C X:POKE209,C Y:SYS828:PR X NTOC* 
270 GOTO140 

280 LV=LV+1:IFLV=4THENLV*1 

290 SC=SC+<LV*50):POKE208,5:POKE209,23:SYS 

828:printsc;:goto60 

300 SOUND2,300,75 

310 LI=LI-l:IFLI=0THEN340 

320 FORN=0TOLI 

330 POKE208,28+N:POKE209,23:SYS828:PRINT■ 
■;:next:goto60 

340 PRINT'1CLR>‘:POKE208,12:POKE209,8:SYS8 
28 

350 PRINT' (LT REDJGORILLA" 

360 PRINTTABU 1)'(GY 1).-." 

370 POKE208,11 :POKE209,12:SYS828:PR1NT' (PUR)PUNTI FATTI :'SC 
380 PRINTTABI11 )' {BLU)(CUR DNJPREMI LA BARRA DELLO SPAZIO” 
390 KS=PEEK1198) 

400 IFKS<>60THEN390 
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410 SOUND1,250,25:GOTO40 

420 RESTORE510:FORN=0TO151:READA:POKE14848 

+n,a:next:return 

430 SYS837:GG=PEEK < 215): RETURN 
440 COLORI,9,2 

450 POKE208,2:POKE209,0:SYS828:PRINTCHR*(9 
6)iCHR*<97);CHR*<98> 

460 POKE208,2!POKE209,1:SYS828:PRINTCHR*(9 
9);CHR*(100);CHR*(101) 

470 POKE208,2:POKE209,2:SYS828:PRINTCHR*(1 
02);CHR*(103);CHR*(104) 

480 POKE208,2:POKE209,3:SYS828:PRINTCHR* <1 
05)JCHR*<106>;CHR*tl07) 

490 POKE208,1:POKE209,4:SYS828:PRINT *{*U}{ 
*U >{*U >{*U > t *U > ■ 

500 RETURN 

510 DATA0.0,16,44,62,28,56,112 

520 DATA129,66,126,90,126,106,86,60 

530 DATA0,0,8,52,124,56,28,14 

540 DATA112,121,127,63,31,7,1,1 

550 DATA60,255,255,255,231,215,235,213 

560 DATAI4,158,254,252,248,224,128,128 

570 DATAI,3,15,15,31,63,62,62 

580 DATAI71,213,235,215,235,255,60,0 

590 DATAI28,192,240,240,248,252,124,124 

600 DATA30,15,15,3,59,127,127,57 

610 DATA0,0,0,0,129,195,195,129 

620 DATA120,240,240,192,220,254,254,156 

630 DATA66, 126,66,66,66,126,66,66 

640 DATA60.66,189,165,165,189,66,60 

650 DATA255,255, 112,120,60,30,15,3 

660 DATA56,60,16,14,52,56,16,28 

670 DATA28,60,8,52,44,28,8,56 

680 DATA186,186,146,124,56,68,130,130 

690 DATA255,255,14,30,60,120,240,192 

700 REM ««« INIZIO GIOCO »»» 

710 sc=0:li=3:lv=i:l*=chr*(108):b*=chr*<10 
9) :m*=chr*(1id 

720 P*=" { A NH''RH A N)( A R>{ A N){ A R>{'N)t A R)( ; ' 
N){ A RH A N){ A R){ A N>{ A R){ A N)( A R>{ A N){ A R){ A N) 
{ A RH A NU A R1{ A NH A R)( A N)( A RK A NH A R)( A N)! A 
RH A NH A RH A N){ A R){ A N)t A RH A N>t A R)( A N) , :RE 
TURN 

730 REM ««« IMPOSTA LO SCHERMO »»» 

730 REM ««« INIZIALIZZA »»» 
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750 COLOR 1,3.2 

760 COLORO, 1 COLOR-4,1 JIETURN 
770 REM <<<<<< SCHERMO »»» 

780 PR1NT''(CLR) "C0L0R1,3,3 

790P00208,30:POKE209,-4:SYS828:PRINTLEFTÌ(PJ,9), 

800 PO-3-4:N-OCOSUB1250 
810 COLORI,3,3:F0RN-6T022STEP4 

820 POKE208,0:POKE209,N:SYS828:PRINTPJ;:NEXTN:RETURN 
830 REM ««<< UNO »»» 

840 GOSUB780:FORN=6TO18STEP4 
850 RO=INT(RND <1)*36)+2 

860 IFN< 23THENPOKE208,PO:POKE209,N:SYS828: 
PRINT” “ 

870 LP=RND<11*36+2:IFLP=POTHEN870 
880 IFN<23THENPO=LP:GOSUB1250 
890 NEXT:RETURN 

900 REM <<<<<< DUE »»» 

910 GOSUB780 
920 F0RN=11T022 

930 POKE208,6:POKE209,N:SYS828:PRINT”<*+>{ 

#+}C*+}{*+>{*+>{*+><*+>{*+>NEXT 

940 POKE208,6:POKE209,17:SYS828:PRINT• 

950 POKE208,6:POKE209,21:SYS828:PRINT” 

960 POKE20Si61POKE209,13:SYS828:PRINT* 

970 PO=8:N=6:GOSUB1250:PO=18:N=10:G0SUB125 
0 

980 PO=3:N=14:GOSUB1250:PO=18:N=18:GOSUB12 
50 

990 RETURN 

1000 REM «<«< TRE »»» 

1010 PRINT”<CLR> * :GOSUB440:COLORI,3,3 

1020 POKE208,0:POKE209,7:SYS828:PRINTGA* 

1030 RESTOREI 170:F0RZZ=1T06:READXP,YP,DU 

1040 POKE208,XP:POKE209,YP:SYS828:PRINTLEF 

T*(P*,DU>:NEXT 

1050 PO=17:N=6:GOSUB1250 

1060 PO=20:N=6:GOSUB1250 

1070 PO=13 :N=10:GOSUB1250 

1080 PO=24:N=10:GOSUB1250 

1090 PO=15:N=14:GOSUB1250 

1100 PO=22:N=14 :GOSUB1250 

1110 PO=6:N=18:GOSUB1250 
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3 1 kit? PO = 31 : N=18: GOSUB1250 
1130 PO^34:N=0:GOSUB1250 

1140 POKE208, 11 :POKE209, 18:SYS828:PRINT’ * 
1150 POKE208,26:POKE209,18:SYS828:PRINT• * 

1160 GOSUB1210:RETURN 

1170 DATA30.4,10,9,6,20,7,10,24,5,14,28 
1180 DATA3,18,32,0,22,39 
1190 REM <<<<<< CIMA »>»> 

1200 GOSUB-HO 

1210 P01CE208,0:P01CE209 1 23:SYS828:PRINT'SCORB:"SC; 

1220 POKE208,28:POKE209,23:SYS828:FORN-1TOLI:PRINTCHR$( 111 );:NEXT 
1230 RETURN 

12-40 REM <<<<<< SCALA »»» 

1250 COLORl,9,3:FORZ-0TO3 
1260 POKE208,PO:POKE209,N«Z:SYS828:PRINTL$ 

1270 NEXT:RETURN 

1280 REM ««<< MOVIMENTO >»»> 

1290 GOSUB1980 

1300 IFLE=1ANDX >1THENX=X-1 :M*=CHR*(112) 

1310 IFRI—1ANDX< 37THENX—X +1 :M*=CHR*(111) 

1320 IFUP=1THENM*=CHR*(113):GOTO1360 
1330 IFDN=1THENM*=CHR*(113) : GOTO1400 
1340 IFFI~1THEN1420 
1350 RETURN 

1360 POKE208,X :POKE209,Y-1 :GOSUB430: IFGG< > 

76THEN1380 

1370 Y=Y-1IGOTO1330 

1380 POKE208,X:POKE209,Y+l:GOSUB430:IFGG=7 

6THEN1370 

1390 GOTO1330 

1400 POKE208,X :POKE209, Y+ 1 :GOSUB430: IFGG<> 

76THEN1340 

1410 Y=Y+1:GOTO1340 

1420 IFM*=CHR*(112)TH£NXD=-1 :ELSEXD=1 
1430 IFX<ÌORX>37THENXD=0 
1440 IFM*=CHR*(113)THENXD=0 

1450 POKE208,BX:POKE209,BY:SYS828:PRINTOB* 

5 

1460 POKE208,CX:POKE209,CY:SYS828:PRINTOC* 

I 

1470 RESTORE1530:FORN=1T06 
1480 READA 

1490 Y=Y+A)GOSUB1540 
1500 1FPL=1THENN=11 
1510 NEXTN 
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1520 GOSUB1680:RETURN 
1530 DATA-1,-1,0,0,1,1 
1540 X=X+XD:PL=0 

1550 POKEZ08,X:POKE209,Y+l:GOSUB430:IFGG< > 

32THENPL=1: RETURN 

1560 IFX<1THENX=1 

1570 IFX >38THENX=38 

1580 GOSUB1640:GOSUB1680 

1590 SOUND2,100,2 

1600 POKE208,BX:POKE209,BY:SYS828:PRINTOB* 
5 

1610 POKE208,CX:POKE209,CY:SYS828:PRINTOC* 
5 

1620 GOSUB1770:POKE208,X:POKE209,Y:SYS828: 
PRINTOM»! : RETURN 
1630 REM ««<< L’UOMO »»» 

16- 10 POKE208XP01£E209,Y:GOSUB430 

1650 OMJ-CHRJ(GG*32):IFGG-32TH£NOM»-CHR$(32) 

1660 PRINTMJ;:RETURN 
1670 REM «<«< BARILI >»»> 

1680 POKE208,BX:POiCE209,BY:GOSUB-130 

1690 OB$-CHRJ(GG*32):IFGG-32THENOB$-CHR$(32) 

1700PRINTBfcIFGG-790RGG-800RGG-81THEN300 

1710 POKE208,a:POKE209,CY13OSUB'430 

1720 OC$-CHRJ(GG*32):IFGG-32THENOC$-CHR$(32) 

1730 1FGG-77THEN0CJ-'' “ 

17- 10 PRINTB$;:IFGG-790RGG-800RGG-81THEN300 
1750 RETURN 

1760 REM <<«« BARILE »>>» 

1770 A=INT(RND<1>*10> 

1780 POKE208,BX:POKE209,BY+1:GOSUB430 
1790 IFGG=320RGG=76ANDA >5THENBE=1 
1800 IFGG=78ORGG=82THENBE=0 
1810 BY=BY+BE:IFBE=0THENBX=BX+BD 
1820 POKEZ08,CX:POKE209,CY +1 :GOSUB430 
1830 IFGG=320RGG=76ANDA >5THENCE=1 
1840 XFGG=78ORGG=82THENCE=0 
1850 CY=CY+CE:IFCE=0THENCX«CX+CD 
1860 IFBX<1THENBD=1 
1870 IFBX>37THENBD=-1 
1880 IFCXC1THENCD-1 
1890 IFCX>37THENCD=-1 

1900 IF < BX<10RBX>37)ANDBY=21THENBX»l:BD»l: 
BY=5:GOSUB1930 

1910 IF(CX<10RCX>37)ANDCY-21THENCX=37:CD=- 
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1 :C Y=5:GOSUB1950 

1920 RETURN 

1930 IFLV=3THENBX=10 

1940 RETURN 

1950 IFLV=3THENCX=27 

1960 RETURN 

1970 RETURN 

1980 LE=0 :RI=0:UP=0:DN=0:F X =0:KS=PEEK(198) 

1990 IFKS=10THENLE=1 

2000 IFKS=13THENRI“1 

2010 IFKS=43THENUP=1 

2020 IFKS=49THENDN=1 

2030 IFKS~60THENFI=1 

2040 RETURN 

2050 RESTORE2060:FORN=0TO53:READA:POKE828+ 

n,a:next:return 

2060 DATA24,166,209,164,208,32,240,255,96, 
169,0,133,210,169,12,133,211,32,60,3 
2070 DATA164,209,240,8,169,40,32,102,3,136 
,208,248,165,208,32,102,3,177,210,133 
2080 DATA215,96,24,101,210,133,210,165,211 
,105,0,133,211,96 

2090 RESTORE2100:FORN=0TO30!READA:POKE882+ 
N,a:NEXT:RETURN 

2100 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

2110 DATAI77,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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22 

Divertiamoci un po’ 



Test aritmetici 

Questo programma prevede tre livelli di domande: elementare, 
medio, avanzato, e dunque proprio per tutti. I quesiti riguardano 
somme, sottrazioni, divisioni e moltiplicazioni. Domande e rispo¬ 
ste vengono scritte su di una lavagna per renderne la presentazione 
più piacevole. 

Al primo livello il compito da risolvere consiste nell’effettuare 
la somma di due serie di valori. Il livello medio prevede opzioni 
per tutte e quattro le operazioni aritmetiche, e le risposte ai quesiti 
sono rappresentate da numeri interi. Gli adulti e i bambini più gran¬ 
dicelli dovrebbero essere in grado di effettuare mentalmente tutte 
queste operazioni. 

Il livello avanzato richiede invece un’abilità aritmetica notevole 
e propone quesiti complessi che si possono risolvere con carta e 
penna o anche grazie all’aiuto di un calcolatore. 

Bisogna digitare le risposte e poi inviarle al computer premendo 
il tasto RETURN. Ciò vuol dire che errori di battitura possono es- 
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sere corretti prima di battere il tasto RETURN. 11 programma vi 
permetterà due tentativi, prima di dare la risposta corretta. 

Al termine di dieci domande il computer stamperà un “riassun¬ 
to”, con il numero delle risposte esatte ed un punteggio percentuale. 

10 REM «<«< DIVERTIAMOCI UN PO' <> ISSI/JIM >>>>>> 

20 REM 

30 A-RND(-TI).VOL 8:G0SUB 70 

-10 CHAR , 12,7, "1 TACILE", 1:CHAR ,12,9, "2>MEDI0',1 CHAR 
,12,11,3 ">DIFFICILE',1 

50 GETKEY A*:IF A*<* 1 * OR A*>*3' THEN GOTO 
50 

60 SOUND 1,400,10:FOR N=1 TO 200IGET B*:NE 

xt n:lev=val(A*>:goto 410 

70 COLOR 0,15,0:COLOR 4,15,2:COLOR 1,10,1: 
GRAPHIC 1,1 

80 DRAW 1,168,10 TO 208,175 TO 200,175 TO 

164,20 TO 120,175 TO 112,175 

90 DRAW TO 160,10 TO 168,10:PAINT 1,164,15 

100 GOTO 470 

110 G*=“* 

120 CHAR ,12,13,G*,1:GETKEY A*:SOUND 1,500 
, 10 

130 IF (A*>=-0“ AND A*<=*9')OR A*«*-*OR (A 
S=CHRS(20)AND LEN(G*)>0> THEN 170 
140 IF GS=*■ ■ OR A*OCHR*<13> THEN 120 
150 IF VAL(G0)“ANS THEN RIT=l:ELSE RIT=0 
160 CHAR ,12,13,' “,l:RETUR 

N 

170 CHAR ,12,13,G*:IF A*=CHR*<20> THEN G*= 
LEFT*<G*,LEN(G*)-1) :A*=" 

180 G*=G*+A*:GOTO 120 

190 FOR G=1 TO 2:G0SUB 110:IF RIT=1 THEN 2 
20 

200 SOUND 1,300,15:SOUND 1,500,25:NEXT G 
210 GOTO 470 

220 SOUND 1,300,10:SOUND 1,400,10:SOUND 1, 
500,10:G=2:NEXT G:TT-TT+1: GOTO 470 
230 GOSUB 470:CHAR ,14,7,“1> ’+*■,1:CHAR 

, 14,9, “2> •-",1 

240 CHAR ,14,11,*3> ’*’‘,l:CHAR ,14,13,“4 

> ’/’',i:def fni (w>=»a+b:s*=* + * 

250 GETKEY A*:Z=VAL(A*>:IF Z<1 OR Z>4 THEN 
250 

260 SOUND 1,600,10 


131 



270 IF Z=2 THEN DEF FNI (W)=A-B:S*=--* 

280 IF Z—3 THEN DEF FNI<W>=A*B:S*=” 

290 IF Z=4 THEN DEF FNI(W)=A/B:S*="/* : DIV= 

1 

300 RETURN 

310 LIM=8:DIV=0:IF LEV=2 THEN LIM=12:G0SUB 
230 

320 IF LEV=3 THEN LIM=25:GOSUB 230 
330 TT=0:GOTO 470 

340 A=INT(RND <l)*LIM)+1 :B=INT(RND(1)*LIM> + 

1 

350 IF DIV=1 THEN A=A*B 

360 GOSUB 470:N*=STR*<P):CHAR ,10,6,N*+“>“ 

i 1 

370 IF LEV=1 THEN 390 

380 Q*=STR*<A>*“ -+S*+STR*<B):CHAR ,12,8,0 
*,1 :ANS=FNI<1): RETURN 

390 A*=-“:FOR N=1 TO A:A*=A*+*{~S)“:NEXT N 
:B*=” “:FOR N=1 TO B:B*=B*+‘{-X>":NEXT N 
400 CHAR ,12,8,A*+- +“,l:CHAR ,12,10,B*+“ 

= “,l:ANS=A+B:RETURN 

410 GOSUB 310:FOR P=1 TO 10:GOSUB 340:GOSU 
B 190:NEXT P:GOSUB 470 

420 CHAR ,17,6,“REPORT.*,1:CHAR ,16,7,“- 

■ f 1 

430 WJ-STRJ(TT)*'' ERANO GIUSTI "rCHAR ,12,10,W$,1 

440 WJ- 'E' IL '*STR$(TT/10’ 100)*" %:CHAR ,14,12,W$,1 

450 CHAR .10,15 "PREMI LO SPAZIO PER GIOCARE.”, 1 rGETKEY A*: IF Alo” 

"THEN 450 

460 GOSUB 470:GOTO 40 

470 W*=““:FOR N=1 TO 20:W*=W*+“ * :NEXT N!C 
OLOR 1,1 

480 FOR N=5 TO 15:CHAR 1,10,N,W*,1:NEXT N: 
RETURN 
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23 

Fatevi il mostro! 



Come programmare una figura 

La costruzione di una figura può essere altrettanto divertente di 
un gioco. Questa “utility” vi permette di definire con precisione 
32 figurine. 

Dapprima vi si presentano le figure che corrispondono ai carat¬ 
teri del codice ASCI dal 96 al 127 e poi vi si offre l’opportunità 
di crearne di completamente nuove. I valori di definizione posso¬ 
no essere annotati e poi utilizzati nei vostri stessi programmi. Serie 
complete di figure si possono salvare su nastro ed averle così a di¬ 
sposizione. 

In questo libro, accanto a programmi che adoperano figure ap¬ 
positamente create, ve ne sono altri che adottano figure standard. 
Con il programma presente sarete in grado di migliorare notevol¬ 
mente la grafica dei giochi. Potrebbe anche venirvi voglia di cam¬ 
biare tutte le figure dei giochi! 
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Guida alla costruzione delle figure 

Dopo aver caricato il programma, viene presentata la prima fi¬ 
gura. Questa può essere modificata, cancellata o una delle altre azio¬ 
ni possibili. 

Clear. Questa istruzione cancella l’intera griglia. 

Pick up. Chiede il codice di un carattere, che appena digitato fa 
comparire il carattere richiesto sulla griglia, in modo da poter es¬ 
sere modificato ecc. Notate che il codice el carattere deve essere for¬ 
mato sempre da tre cifre, per cui 2 diventa 002. 

Edit. Posiziona il cursore in alto a sinistra sulla griglia. In segui¬ 
to può essere spostato con i tasti A, S, *, e cursore su. Con la barra 
dello spazio potete cancellare un punto esistente o impostare un 
punto vuoto. Quando avete finito premete il tasto Q. 

Premete T per salvare il lavoro su nastro. 

Premete L per ricaricare un lavoro salvato precedentemente su 
nastro. 


10 REM ««« FATEVI IL MOSTRO * ISSi/JIM/GREG »»» 

20 P0KE52,55:POKE54,55:POKE56,55:GOSUB1010 
:SYS882 

30 POKE65298,192:POKE65299, < PEEK(65299)AND 
3)OR56 

40 D X MF(81,D(32,8) 

50 CH=1 

60 SCNCLR:GOSUB710 
70 GOSUB580 
80 GOSUB770 

90 REM <««< Ciao PRINCIPALE »»» 

100 GETKEYA* 

110 IFA*=*C-THENGOSUB170 
120 IFAS=“P“THENGOSUB210 
130 IFA*=-E-THENGOSUB230 
140 1FAS=*T“THENGOTO450 
150 IFA$="L"THENGOTO520 
160 GOTO100 
170 AJ" "iREM 8 SPAZI 

180 F0RY=2T09:CHAR1,26,Y,A*:B*=STR*<0)+" 

* :CHAR1,35,Y,B*:NEXT 

190 CR*=" *:GOSUB680:RETURN 

200 REM <<<<<< SCELTA »»» 

210 GOSUB170:GOSUB860:GOSUB770:GOSUB670:RE 
TURN 
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220 REM <<<<<< EDIZIONE »»>> 

230 H=26:v=2:COLORI ,2,7 

240 LO=3072+V*40+H:AB=PEEK<LO):POKELO,AB+1 
28:FORT=1TO30:NEXT 
250 POKELO,AB 
260 GOSUB870 

270 IFLE=1ANDH>26THENH=H-1 
280 IFRI=1ANDH<33THENH=H+1 
290 IFUP=1ANDV>2THENV=V-1 
300 IFDN=1ANDV<9THENV=V+1 
310 IF9=1THENA*=**:RETURN 
320 XFFI=0THEN390 
330 G=H-25:X=V-1 

340 IFAB=32THENDD=42:W=BI(G):ELSEDD=32:W=0 

350 POKELO,DD:J=D(CH,X):IFW=0THEN370 

360 J=JORW:D<CH,X)=J:GOTO380 

370 C=BI(G):W=(NOTC)+l:K=D<CH,X): j=k+w:D(C 

H,X )=3 

380 GOSUB410:SS=14848+I(CH-1)*8)+X-l:POKES 

S, J 

390 GOTO240 

•100 REM <<<<<< RISULTATO »»» 

410 BB=X:X=D(CH,BB):GOSUB820:CHAR1,26,V,X* 
420 P*=* •:XX*=STR*(X):CHAR1,36,V,P*:CHA 

RI,35,V,XX* 

430 X=BB!RETURN 

-HO REM ««« SALVATAGGIO »»» 

450 RESTORE490:FORT=0TO31: READA:POKE15360+ 

T, a:NEXT 

460 CHAR1,0,21," " 

470 SYS15360 
480 GOTO60 

490 DATA169,1,162,1,160,255,32,186,255,169 
,0,32,189,255,169,0,133,208,169,58 
500 DAT A133,209,162,0,160,59,169,208,32,21 
6,255,96 

510 REM ««« CARICAMENTO »»» 

520 RESTORE560:FORT=0TO23:READA:POKE15392+ 
T,A:NEXT 

530 CHAR1,0,21,* ’ 

540 SYS15392 
550 GOTO60 

560 DATA169,1,162,1,160,255,32,186,255,169 
,0,32,189,255,169,0,162,255,160 
570 DATA255,32,213,255,96 
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590 COLOR0,1 : COLORA,1 : COLORI,8,5:SCNCLR 
590 CHAR1,0,0, "NO. CHAR NO. CHAR * 

600 FORX=0TO23:CHAR1,X,1, * -":NEXT 

610 F0RY=3T018:D*=STR*<Y + 93):CHAR1,0,Y,D*: 

CHAR1,7,Y,CHR*<Y+93>:NEXT 

620 F0RY=3T018:D*=STR*<Y+109):CHAR1,13,Y,D 
*:CHAR1,21,Y,CHR*(Y+109):NEXT 
630 COLORI,7,4:A*=*{RVS ON> {RVS 

OFF >“:CHAR1,25,1,A»,l:FORT=lTOS 
640 B*='{RVS ON} {RVS OFF > {RVS ONJ 

{RVS OFF}-:CHARl,25,T+l,B*:NEXT 
650 CHAR1.25,10,A*.1 
660 COLOR 1,6,5:CHAR 1,0,21, "CARATTERE MOSTRATO:"" 

670 COLORI,6,5:CR*=STR*<CH+95>+ * - 
680 CHAR1,20,21,CR* 

690 RETURN 

700 REM <<<<<< INIZIALIZZA LE VARIABILI >»»> 

710 AD=14848 

720 F0RN=1T032:F0RM=1T08:D(N,M)=PEEK(AD) :a 
D=AD +1 :NEXTM,N 

730 RESTORE740:FORT=1TO8:READBI(T):next 
740 DATA128,64,32,16,8,4,2,1 
750 RETURN 

760 REM <<<<<< DISEGNA I CARATTERI »»» 

770 Y=2:BB=X: COLORI,2,7 

780 F0RN=1T08:X=DtCH,N>:GOSUB820 

790 CHAR1.26,Y,X*:XX*=STR*<X>:P*=" * :CHA 

RI,36,Y,P*:CHAR1,35,Y,XX*:Y=Y+1 

800 NEXT 

810 x=bb:return 

820 X*=•00000000 * :U=128 

830 F0RM=1T08:Z=UANDX:1FZ< >0THENB*=***:ELS 
EB*=* " 

840 U=U/2:MI0*(X*,M,1)=B*:NEXT: RETURN 
850 REM ««« IMMISSIONE CARATTERI »»» 

860 COLORI,6,5:CHAR 1 , 24 . 13."CARATTER£?":X-35:Y-13:GOSUB950:RETURN 
870 q=0 : le=0 : R i =0 : up=0 : dn=0 : f i =0 : ks=peek < 1 
98) 

880 IFKS=10THENLE=1 
890 IFKS=13THENRI=1 
900 XFKS=43THENUP=1 
910 IFKS=49THENDN=1 
920 IFKS=60THENFI=1 
930 IFKS=62THENQ=1 
940 RETURN 
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950 NS=*":B*=" *:CHAR1,X,Y,B*:F0RN=1T03 

960 GETKEYB*:IFVAL(BS)<0ORVAL(B*> >9THEN960 
970 N*=N*+B*:CHAR1,X,Y,N*:NEXT:CH=VAL <N*> 
980 IFCH< 960RCH >127THEN950 
990 CH=CH-95:RETURN 

1000 POKE65298,196:POKE65299,209:STOP 
1010 RESTOREI020:FORN=0TO30: READA:POKE882 + 
N,A:NEXT:RETURN 

1020 DATA160,0,132,212,132,214,169,208,133 
,213,169,56,133,215,162,3 

1030 DATA177,212,145,214,200,208,249,230,2 
13,230,215,202,16,242,96 
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24 

Music monitor 



Da Do RAM ROM 

Questa utility a tre ottave vi consente di programmare sezioni 
musicale e poi di armonizzarle tra loro. Inoltre possono essere sal¬ 
vate, caricate, modificate o solo suonate per diletto, una volta che 
siano passate in memoria. 

Si costruiscono dapprima singole sezioni e poi vengono collega¬ 
te in sequenza. Il programma è in grado di segnalare se eseguite 
qualche operazione in modo scorretto. 

Si adoperano dei MENU per visualizzare le opzioni ad ogni sta¬ 
dio. Qualora l’opzione richiesta non fosse presente, premete “X” 
per accedere ad un altro menu. La selezione del modo sequenza 
all’inizio farà apparire sullo schermo la tastiera. 

Il cursore di SEQUENZA è mosso a destra e a sinistra sui ri¬ 
quadri della sequenza con i tasti SHIFT e CBM. La nota voluta 
si ottiene usando i tasti cursori per muovere il cursore di nota. L’ot¬ 
tava è indicata dal colore, i diesis da caratteri in reverse. 
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Quando trovate la nota desiderata battete uno spazio per farla 
entrare nella sequenza. La stessa nota può anche essere collocata 
in un punto qualsiasi di quella sequenza adoperando il cursore di 
sequenza. 

Selezionando il modo playback potrete ascoltare ciascuna sequen¬ 
za. 11 tempo di durata dell’esecuzione può essere alterato con “F” 
nel senso di accellerare e con “S” per rallentare. 

Un motivo finito può essere salvato su nastro e poi caricato dal 
menu appropriato. Avete modo così di costituire una vostra colle¬ 
zione di musica “digitale”, e se siete in vena di vanterie, dire ai vo¬ 
stri amici che disponete di una vostra apparecchiatura di registra¬ 
zione. 

11 programma è stato realizzato con le note inglesi: DO = C; 
RE = D; MI = E; FA = F; SOL = G; LA = A. 

10 REM >>> SEQUENTIAL CIRCUIT <<< 

20 REM > > > >DAVID<<<<<<< 

30 VOL8 

40 COLOR4,2,4:COLOR0,2,5:COLOR1, 1 :PRINTCHR 
*<8)CHR*(142> 

50 DIMN(35) ,NC(35) ,MU(7, 1, 15) ,AA <7, 1,15) :R 
EM 8 SEQUENCES, 2 CHANNELS, 16 NOTES 
60 FORR=0TO35:READN(R):NEXT 
70 FORR=0TO35:READNC<R>:next 

80 DB=3714:DP=12:SB=3436:SP=0t TEMPO=4:SI=0 
: :so=0:REM SONG NOT IN 

100 PRINT"ICLRJ":CHAR1,9,1,“{RVS ON>* SEQU 
ENTIAL CIRCUIT *{RVS OFF>":COLORI,10,2 
110 CHAR1,11,4,“BY DAVID WHITTAKER" 

120 COLORI, 1 :CHAR1,11, 10, "1. SONG MODE”:C 
HAR1,11,13,“2. SEQUENCE MODE" 

130 GETA*:IFA*="1"THENGOSUB1090:GOTO100 
140 IFA*=“2”THENGOSUB170:GOTO100 
150 GOTO130 

160 REM X * ******** 

170 COLORI,1:PRINT"ICLR>“SPC(12)"{RVS ON} 
SEQUENCE MODE {RVS OFFHCUR DN>{CUR DN > < C 
UR DN > { CUR DNXCUR DN > { CUR DN > " 

180 FORR=1TO40:PRINT"{*P>“5 :NEXT 
190 PRINT" {HOME! {CUR DNXCUR DNXCUR DNXC 
UR DN > {CUR DN > {CUR DNXCUR DNXCUR DNXCUR 
DN > {CUR DN > {CUR DNXCUR DNXCUR DNXCUR D 
NXCUR DN} {CUR DNXCUR RTXCUR RT > * ! 
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200 F0RR=1T036:PRINT"{*P}"; 

210 NEXT:PRINT 

220 F0RR=1T05:PRINT"{CUR RTXCUR RT } “ ; 

230 F0RS=1T03 

240 PRINT"{*G}{RVS ON> {RVS OFF> {RVS ON } 
{RVS OFF } {*6HRVS ON } {RVS OFF} {RVS ON} 
{RVS OFF} {RVS ON} {RVS OFF} "; 

250 NEXT 

260 PRINT"{CUR L}{*M}" 

270 NEXT 

280 F0RR=1T02:PRINT"{CUR RT}{CUR RT}“; 

290 F0RS=1T03 

300 PR X NT “ { *G } < '“H } { •'G } {*G}{~H} { ''B } {'G} 

11 i 

310 NEXT 

320 PRINT“{CUR L}{*M}" 

330 NEXT 

340 F0RR=1T039:PRINT”C*V}”; 

350 NEXT:POKE4071,119 

360 FORR=8TO23:POKE3072+R*40, 101 :POKE3072 + 
R*40+39,103:NEXT 
370 PRINT"{HOME}“ 

380 CHAR1,37,9,"T* 

390 CHAR1.36, 10, "{^U}{^*}{"-I}“ 

400 FORR=l1T014:CHAR1,36,R,"{*Q}{RED} {BLK 

}{*W}":next 

410 CHAR1.36, 15, ” {-" J } {''* } { ~K } " 

420 CHAR1,3,10,"{*A}" 

430 F0RR=4T032STEP2:CHAR1,R, 10, ’{~*}{*R}* : 
NEXT 

440 CHAR1,34,10,“{~*}{#S}“ 

450 CHAR1, 1,11, *C1{-'-}* 

460 F0RR=4T034STEP2:CHAR1,R,11,“ {--}■:NEX 

T 

470 CHAR1,3,12,“{*Q}“ 

480 FORR—4T032STEP2:CHAR1,R,12,”{~*}{-+}“: 
NEXT 

490 CHAR1,34,12,"{~*} {*W}” 

500 CHAR1 , 1, 13, “C2{'"‘-}“ 

510 FORR=4T034STEP2 : CHAR 1 , R , 13, “ {''-}“:NEX 

T 

520 CHAR1,3,14,“{*Z}“ 

530 F0RR=4T032STEP2:CHAR1,R,14,“{~*}{*E}": 
NEXT 

540 CHAR 1,34, 14, "{'*'*}{ K-X } " 
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550 GOSUB1020 

560 FQRR=12T023:POKEDB-1024 + R,37:POKEDB-10 
24+12+R,113:NEXT 

580 CHAR1,9,3,"WH1CH SEQUENCE 1 TO 8 ? " 
590 SETA*:IFA*="X"THENRETURN 

600 SQ=VAL (A* > - 1 : IFA*<“1”ORA* >■8 *THEN590: E 
LSEPRINT A*:GOSUB1800 

610 CHAR1,11,3,"RECORD OR PLAYBACK ? * 

620 GETM*:IFM*="X"THENRETURN 

630 IFM*< >“R“ANDM*< >“P“THEN620:ELSEPRINTM* 
:GOSUB1800 

640 IFM*="R"THENGOSUB670:CHAR1,0,0,” 

":6OTOÓ10 

650 IFM*=“P“THENGOSUB890:CHAR1,0,0,“ 

“:GOTOÓ10 

660 REM RECORD MODE 
670 CHAR1,0,0,"RECORD" 

680 CHAR1,10,3,“CHANNEL 1 OR 2 ? “ 

690 GETA*: I FA*=“X“THENGOSUB1800: RETURN 
700 IFA*<"1“ORA* >“2“THEN690:ELSECH=VAL(A*) 
-1 :PRINTA*:GOSUB1800 

710 POKESB+SP,90:CHAR1,12,3,"JUST A MOMENT 
...GOSUB1820:GOSUB1800 
720 GETA*:IFA*="X"THENRETURN 

730 IFA*="CCUR RTJ“ANDDP<35THENP0KEDB+DP,1 
11 :DP~DP +1 :SOUND1,N(DP> ,5 

740 IFA*="{CUR LI“ANDDP>0THENPOKEDB+DP,111 
:DP=DP-1 : SOUND1,N(DP) ,5 
750 POKEDB+DP,NC(DP) 

760 Z=PEEK <1347) 

770 1FZ=2ANDSP>0 THENPOKESB+SP,32:SP=SP-2 

780 IFZ=1ANDSP< 30THENPOKESB + SP,32 :SP=SP+2 

790 NC—SP/2 

800 POKESB+SP,90 

810 1FA*<>CHR*<13)THEN860 

820 SI=1:MU<SQ,CH,NC)=N(DP) 

330 X=NC(DP):CC=37:IFDP<12THENCC=0 
840 IFDP>23THENCC=113 

850 POKESB+SP+80+CH*80,X:POKE2492+SP+CH*80 
,CC:SOUNDl,N(DP),5 

860 IFA*=" "THENMU(SQ,CH,NC)=0:POKESB+SP+8 

0+CH*80,46:SOUNDl,0,5 

870 GOTO720 

880 REM PLAYBACK MODE 
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890 IFSI=0THENCHAR1,13,3,"NONE IN MEMORY!" 

:fort=ito1000:next:gosub1800:return 

900 CHAR1,0,0,"PLAYBACK":P=0 
910 GETAS:IFAS="X"THENRETURN 
920 GOSUB990 

930 M=MU(SQ,0,P> : IFMTHENSOUND1 , M, TEMPO-X-3 

940 N=MU<SQ,1,P>:IFNTHENSOUND2,N,TEMPO*3 

950 IFM+N=0THENFORT=1TOTEMPO*50:NEXT 

960 P=P+1:IFP=16THENP=0 

970 GOTO910 

980 REM UPDATE TEMPO 

990 IF A*=“F“THENIFTEMPO>0THENTEMPO=TEMPO-1 
:GOTO1020 

1000 IF A*= * S * THEN IF TEMPO < 8THENTEMPO=TEMPO + 
1 :GOTO1020 
1010 RETURN 

1020 FORR=3549TO3629STEP40:POKER,32:NEXT 
1030 POKE3669,248:IFTEMPO>1THENPOKE3669,16 
0 

1040 IFTEMPO>2THENPOKE3629,248:IFTEMPO >3TH 
ENPOKE3629,160 

1050 IFTEMPO >4THENPOKE3589, 248 :IFTEMPO >5TH 
ENPOKE3589,160 

1060 IFTEMPO >6THENPOKE3549,248: IFTEMPO >7TH 
ENPOKE3549,160 
1070 RETURN 

1080 REM OPENING SCREEN 
1090 PRINT"{CLR>":COLORI,1 

1100 CHAR0,14,0,"<RVS ONJ SONG MODE {RVS 
OFF } " 

1110 CHAR1,14,7,"P PLAY SONG" 

1120 CHAR1,14,9,"L LOAD SONG" 

1130 CHAR1,14,11,"S SAVE SONG" 

1140 CHAR1,14,13,"E EDIT SONG" 

1150 CHAR1,14,16,“X EXIT MENU" 

1160 GETAS:IFA®=“X“THENRETURN 
1170 IFA*="P"THENGOSUB1230:GOTO1090 
1180 I FAS= " L *' THENGOSUB1340 : GOTO1090 
1190 IFA*="S"THENGOSUB1510:GOTO1090 
1200 IFA*="E”THENGOSUB1650:GOTO1090 
1210 GOTO1160 
1220 REM PLAY SONG 

1230 IFSO=0THENPRINT" (CLRHCUR DNXCUR RT ) 
NO SONG IN MEMORY !“:FORT=1TO1000:NEXT:RET 
URN 
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1240 PRINT"1CLRJPLAY SONG MODE{CUR DNJCCUR 
DNJCCUR DNKCUR DNJ1CUR DN>X TO EXIT» 
1250 P=0:Q=0 

1260 GETA*:IFA*=“X"THENRETURN 
1270 GOSUB990 

1280 M=MU(P,0,Q>:IFMTHENSOUND1,M,TEMPO*3 
1290 N=MU <P,1,Q):IFNTHENSOUND2,N,TEMPO*3 
1300 IFM+N=0THENFORT=1TOTEMPO*50:NEXT 
1310 Q=Q+1:IFQ=1ÓTHENQ=0:P=P+1:IFP=8THEN12 
50 

1320 GOTO1260 
1330 REM LOAD SONG 
1340 IFSI=0THEN1380 

1350 FRINT»{CLR}“:CHAR1,5,5,“OVERWRITE CUR 
RENT SONG Y/N ?» 

1360 GETA*:IFA*="N"THENRETURN 
1370 IFA*< > » Y“THEN1360 
1380 PRINT»{CLR>LOAD MODE” 

1390 CHAR1,1,5," ”: INPUT“FILENAME (MAX 8 C 

HARS) ”; FI* 

1400 IFLEN(FI*)<ÌORLEN(FI*)>8THEN1390 
1410 IFFI*= » X“THENRETURN 
1420 OPEN 1,1,0,FI* 

1430 FORR=0TO7 

1440 FORS=0TO1 

1450 FORT =0TO15 

1460 INPUTH1,MU(R,S,T) 

1470 NEXTT,S,R:CLOSE1:SI=1:SO=l 
1480 RETURN 

1490 PRI NT » { CUR DNXCUR RT } DONE . ” : FORT= 1 TO 
1000:NEXT 

1500 REM SAVE SONG 

1510 IFSI=0THENPRINT »{CLR J{CUR DN11CUR RT} 
NO SONG IN MEMORY ! » :FORT=1TO1000:NEXT:RET 
URN 

1520 PRINT » £ CLR}SAVE MODE» 

1530 CHAR1,1,5," »:INPUT“FILENAME (MAX 8 C 

HARS)»iFI* 

1540 IFLEN(FI*)<ÌORLEN(FI*)>8THEN1530 
1550 IFFI*=“X » THENRETURN 
1560 OPEN1,1,2,FI* 

1570 FORR=0TO7 

1580 FORS—0TO1 

1590 FORT=0TO15 

1600 PRINTH1,MU(R,S,T) 
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loie NEXTT,S,R:CLOSE1 

1620 PR INT " { CUR DNMCUR RT>DONE.“:FORT=1TO 

1000:NEXT 

1630 RETURN 

1640 REM EDIT SONG 

1650 IFSI=0THENPRINT“(CLR5CCUR DNJICUR RT> 
NO SEQUENCES IN MEMORY 1 “:FORT=1TO1000:NEX 
T:RETURN 

1660 PRINT"CCLRJEDIT MODE" 

1670 CHAR1,1,5,"KEY IN ANY 8 SEQUENCES TO 
MARE A SONG":SO=1 

1680 FORR=0TO7:CHAR1,12+R*2,10,“{*T}":NEXT 
1690 FORR=0TO7!A*="" 

1700 GETA*:IFA*<“1"ORA*>"8”THEN1700:ELSEA= 
VAL(A*)-1 

1710 CHAR1,12+R*2,9,A* 

1720 FORS—0TO15:AA( R, 0,S)=MU(A,0,S):AA(R,1 
,S)=MU(A,1,S) 

1730 NEXTS,R 

1740 PRINT:PRINT" (CUR DNJICUR DNHCUR RTJW 
A IT A MOMENT. . . " 

1750 FORR=0TO7:FORS=0TO1:FORT=0TO15 
1760 MU(R,S,T)=AA(R,S,T) 

1770 NEXTT,S,R 

1780 PRINT"(CUR DNJICUR DNJICUR RT JDONE. “: 
FORT=1TO1000:NEXT 
1790 RETURN 

1800 FORT=1TO200:NEXT:FORT=0TO38:CHAR1,T, 3 
," “:NEXT:RETURN 

1810 REM DISPLAY 
1820 FORR—0TO15 

1830 X=MU(SQ,0,R):IFX=0THENX=46:CC=1:ELSEG 
OSUB1960 

1840 POKE3516+R*2,X:POKE2492+R*2,CC 

1850 X=MU(SQ,1,R):IFX=0THENX=46:CC=1:ELSEG 

OSUB1960 

1860 POKE3596+ R*2,X :POKE2572 + R*2,CC 
1870 NEXT:RETURN 

1880 REM 11****************************** 
1890 DATA169,205,262,303,345,383,425,453,4 
85,516,545,571 

1900 DATA596,619,643,667,685,704,723,739,7 
55,770,785,798 

1910 DATA810,822,834,844,854,864,873,881,8 
89,897,904,911 
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1930 DAT A3,131,4,132,5,6,134,7,135,1,129,2 
1940 DATA3,131,4,132,5,6,134,7,135,1,129,2 
1950 DAT A3, 131,4,132,5,6,134,7,135,1,129,2 
1960 RR=0 

1970 IFN<RR)=XTHEN1980:ELSERR=RR+1:G0T0197 
0 

1980 X=NC(RR):IFRR<12THENCC=0:RETURN 
1990 IFRR >23THENCC=113:RETURN 
2000 CC=37:RETURN 
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Note finali 


Nel produrre questo libro abbiamo avuto cura di mantenere uno 
standard di giochi ben al di sopra della media. 

Ciò si traduce in programmi più lunghi e perciò da digitare con 
maggiore attenzione del solito. Vi accadrà talvolta di dover ovvia¬ 
re al funzionamento sbagliato dei vostri programmi e proprio quello 
sarà il momento di capire come e perché un programma funziona. 

Per aiutarvi in questo compito, eccovi una piccola guida. 


Consigli generali 

1. Effettuate un doppio controllo sulla battitura dei listati, gra¬ 
zie all’aiuto di qualcun altro, per mezzo di una lettura a voce alta. 

2. Effettuate un doppio controllo sui caratteri speciali. Rilegge¬ 
te le note introduttive all’inizio del libro. 

3. Fate attenzione a non confondere 1 (numero) con I (lettera). 

4. Attenzione a non digitare la “A” maiuscola al posto della “a” 
minuscola. 

5. Attenzione a distinguere (punto e virgola) da (due 
punti). 

6. Controllate due volte gli spazi facendo riferimento agli spazi 
delle linee che si trovano sopra e sotto la vostra riga. 

7. Controllate due volte i numeri di linea. Non confondete un 
numero che avanza e finisce nella riga seguente con il vero numero 
di riga. 

8. Controllate tre volte i data. È assai facile saltare qualche nu¬ 
mero. Come controllo finale, contate le virgole e confrontatene il 
numero con quello del listato. 

9. Assicuratevi di aver messo tutte le virgolette. 

10. C’è davvero uno sbaglio? Rileggete le istruzioni per gioca¬ 
re. Molte risposte devono essere seguite dalla battitura del tasto 
RETURN. 
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Problemi specifici 


1. Nei listati sono stati adoperati caratteri speciali. Familiarizza¬ 
tevi con questi caratteri, dapprima su un programma semplice. 

2. Uno dei motivi principali del fallimento di programmi dipen¬ 
de dalle errate introduzioni di dati. Ad esempio, un programma 
può fallire in seguito alla introduzione di un inaspettato numero 
negativo. È possibile ridurre il numero di introduzioni “stupide” 
di dati, ma solo al prezzo di listati lunghi fuor di misura. 

3. Tutti i programmi dovrebbero funzionare altrettanto bene su 
base monocromatica, ma cambiate pure i colori (dopo aver salva¬ 
to la versione corretta) secondo il vostro gusto. 

4. È buona abitudine caricare un programma in una macchina 
appena accesa. Con ciò si evita che nella macchina stessa perman¬ 
gano residui di un programma precedente, che potrebbero procu¬ 
rare dei fastidi. 

5. Se un programma crolla visualizzando uno schermo bizzarro, 
digitate quanto segue (state attenti perché non vedrete sullo scher¬ 
mo quel che avrete battuto): 

POKE 65298, 196: POKE 65299, 209 

e poi battete RETURN. 

Lo schermo dovrebbe tornare normale, con un messaggio d’er¬ 
rore. Se poi digitate “heip”, il problema dovrebbe giungere ad un 
chiarimento. 


Debugging 

Se nessuno dei suggerimenti precedenti dovesse aver successo, 
rimboccatevi le maniche e leggete quanto segue: 

1. Se un messaggio d’errore indica uno sbaglio in una determi¬ 
nata riga, e quest’ultima appare corretta al controllo, ricordate che 
lo sbaglio potrebbe trovarsi nella riga che passa informazioni a quel¬ 
la. Ricontrollate tutte le righe correlate. 

2. Errori del tipo “Out of range”, “Improper argument”, ecc., 
possono essere individuati nel modo suddetto. In aggiunta digita¬ 
te “PRINT A” o qualunque altra sanabile adoperata in quella ri¬ 
ga. Con ciò dovreste risolvere il problema. 
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3. Quando c’è qualcosa che viene saltato, la funzione TRON è 
molto utile in quanto mostra il giusto ordine di svolgimento del 
programma, riga per riga. In questo modo dovreste riuscire a chiarire 
tutti i dubbi circa i GOSUB e tutte le istruzioni di salto condizionato. 

4. Siate metodici. Affrontate il vostro lavoro considerando una 
sezione alla volta. Potete usare l’istruzione END per interrompere 
i programmi nei punti voluti e potete aggiungere delle piccole ri¬ 
ghe di istruzioni per farvi stampare il risultato di certi calcoli. 

5. Potete disabilitare temporaneamente delle sezioni di programma 
inserendo all’inizio della riga l’istruzione REM. 

6. Riscrivete la sezione di programma responsabile del malfun¬ 
zionamento. 

7. Usate la funzione TRAP nel modo descritto sul manuale. 

8. Per resettare la macchina senza perdere il programma, preme¬ 
te prima il tasto RUN/STOP e poi, senza rilasciare il primo, il ta¬ 
sto RESET. Vi troverete in monitor. Date il comando X per torna¬ 
re in BASIC, ove potrete correggere il vostro programma prima di 
rilanciarlo. 

9. Andate a letto e fatevi una dormita. Domani magari le cose 
compariranno più semplici. 
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Appendice 1: aiuto alla progettazione dei caratteri definiti dall’utente 
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Appendice 2: mappa dello schermo 


40 COLONNE x 25 RIGHE 
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Questo libro presenta una selezione di 22 bellissimi 
giochi e di due utility per il microcomputer Commo¬ 
dore 16. 

Vengono trattate tutte le categorie di giochi: ci sono gio¬ 
chi di testo come Maria-Celeste (un gioco di avventura 
basato su testo nel quale si cerca di scoprire il leggen¬ 
dario vascello fantasma), giochi classici come Star Trek 
e II matto nel labirinto, giochi per due giocatori come 
gli scacchi e la dama (con molte opzioni!) e giochi di 
dadi come il gioco più celebre di Las Vegas, Craps. Ci 
sono anche giochi di memoria, giochi di tipo arcade e 
giochi educativi per divertire e affascinare i lettori di 
ogni età. Ogni programma è stato scritto per attrarre 
qualsiasi giocatore, molto esperto, oppure compieta- 
mente a digiuno di nozioni di computer. 

Viene anche presentata una selezione di utili routine per 
aiutarvi a creare grafici originali e a sviluppare i vostri 
programmi. Una sezione di riferimento include una gri¬ 
glia dello schermo e del singolo carattere per poter pro¬ 
gettare caratteri personalizzati. 

Tutti i giochi utilizzano completamente le capacità del 
Commodore 16, sono stati provati a lungo e sono per¬ 
tanto a prova di errore. 
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